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Nouveau lecteur de disquette 3', double têtes, double faces 
500 K*octets directement adressables sans retourner la disquette 


T.R.A.N. 
fête son 

5000 ième 

JASMIN 

pour la FRANCE 



BIENVENUE A L'ATMOS FRANÇAIS _ BRAVO EUREKA 

LA PUISSANCE NOUVELLE POUR ORIC 1 ET ATM0S 

© JASMIN est un produit de T R AN. ORIC 1 et ATMOS sont des produits ORIC LTD 

Nouvelle conception compacte à fiabilité accrue : Lecteur et contrôleur en un seul boîtier. Alimentation sépa¬ 
rée à la prise de secteur —> robustesse et plus de problème de chauffe. Fabrication française assurée par DATTEL - Aix en Provence, utilisant les der¬ 
niers cris de la technologie. 

La puissance du JASMIN vient de son fameux système d'exploitation de disque FTDOS (marque déposée de Technologie Recherche et Applications 
Nouvelles). Chargement ultra rapide : 48 K octets en moins de 5 secondes. 50 instructions indispensables pour les applications de gestion et scienti¬ 
fiques et plus de 5 utilitaires. Le FTDOS est chargé en mémoire parallèle, laissant disponible entièrement la mémoire réservée à l’utilisateur. Fichiers à 
accès direct à l'enregistrement. Fichiers séquentiels. Accès direct aux secteurs - Matrices - Copie directe de cassettes à disquette. En prime un logi¬ 
ciel de fichier à accès direct sur plusieurs clés « REPERTORY-FICH ». 

offrez-vous DE SUITE votre JASMIN et payez à CREDIT dans 3 mois 


Ens. G 
3650 F ttc 

JASMIN 2 + 

EASYTEXT + 

Livre T DOS 

A la commande 

150 F 

Et 15 mensualités 
• le : 

292,43 F 

Ens. H 
6390 F ttc 

JASMIN 2 + 
EASYTEXT + 
LIVRE T DOS + 
JASMIN PRINTER 

A la commande 

190 F 

Et 21 mensualités 
de : 

388,81 F 

Ens. 1 
3990 F ttc 

JASMIN 2 + 
EASYTEXT + 
MULTIFICH + 
LIVRE T DOS. 

A la commande 

90 F 

Et 15 mensualités 
de : 

325,85 F 

Ens. J 
6690 F ttc 

JASMIN 2 + 
EASYTEXT + 
MULTIFICH + 
LIVRE T DOS + 
JASMIN PRINTER 

A la commande* 

190 F 

Et 21 mensualités 
de : 

407,62 F 

Coût total du créd 

it .DMI 856,60 F. 

Coût total du crédit ♦DMI 1965,01 F. 

Coût total du crédit ♦DM 987,75 F, 

Coût total du crédit ♦DM 2060,02 F. 


Spécialistes 


Taux 


75012 Pans VISMO 338 60 00 
13014 MOSSE ILC 91/96 60.72 
14200 L IMPULSION 31/93.33 88 
26500 ECA ELECTRONIQUE 75 43 13 38 
31000 MICRO OIFFUSION 61/22 81 17 
33800 SON VIDEO 2000 56 92 91 78 
38000 CMABERT 76'46 62 73 
57100 ELECTRONIC CENTER 6253 86 60 
59300 DYNAMIC HIFI 2730 20 04 
59650 MICROPUCE 20/47 18 57 
67150 FRISTCH ETS 6696 03 51 
69001 OROIELEC OROINASELF 78/26.23.07 
69007 J.C.R LYON COMPUTER 78 61 16.39 v 
78000 MICTEL 30/21 75 01 
94300 OROIVIOUEL 1 /328 22 06 O 
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TEC 24,90 Z. Pour tout renseignement Téléphonez au (94) 21.19.68 Monsieur FOLGOAS 


BON OE COMMANDE A recopier et t envoyer : 

T.R.A.N. sari.'- 53, impasse Blàriot 
831 30 LA GARDE - Tél : (94) 21.19.68 


Nom : .. .. . 

Adresse :. 

Code Postal :. Ville 

Dete : . Tél. 


Forfait do Port Express on Francs : gQ f j- g 


Déa>gnat>on 

Quantité 

Pu unit. TTC 

Mt TTC 


















que voua n encaiaeerej qu’à raxpédit»on de rappareil 



































COBRA PINBALL 140 F 

Plus besoin de présenter COBRA PINBALL, 
une super simulation de. flipper paramé¬ 
trable. Au TOP-TEN, premier Hit-parade 
du logiciel il est en mars le. 

N°1 

l lolld qui 4e passe de commenlalA.es ... 

MEURTRE A GRANDE VITESSE 180 F 

Le logiciel le plus original Sun. mlcro- 
ordlnateurs. Pour en savoir plus voyez 
le numéro 6 (mars) de THE0R1C PAGE 12. 
Et participez au grand concours organi¬ 
se avec Théorie... 

"Un coup de maître ! Nous aimons beau¬ 
coup Meurtre à grande vitesse" (Jeux, 
et Stratégie avril-mal SS). 

1815 160 F 

Un wan-game basé sur les campagnes napo¬ 
léoniennes. "Un véritable war-game, très 
complet, très facile à joueur et de sur¬ 
croît de très bonne qualité" (Science & 
\Jle Micro mars 85). 



LOGICIELS 

Jeux 

Utilitaires 

Educatifs 

COBRA SOFT : une gamme unique de logiciels 
pour micro-ordinateurs 0RIC-1, ATMOS, TO 7, 
MO 5, AMSTRAV, etc... 

COBRA SOFT propose 30 titres pour ORÎC-1 
et ATMOS. Vous pouvez recevoir le catalo¬ 
gue complet en renvoyant le bon cl-des¬ 
sous en précisant "catalogue" et en jol- 
gant une enveloppe timbrée avec votre 
adresse. Vous pouvez également vous ré¬ 
férer aux THE0R1C précédents dans lesquels 
vous trouverez le descriptif et le prix 
de chaque programme COBRA SOFT. 

COBRA 

Ces logiciels sont en vente dans 
les boutiques spécialisées ou par 
correspondance en écrivant à cette adresse : 

COBRA SOFT 5, av. Monnot 71100 CHALON/S 


KIT - PROGRAMMEURS 290 F 

Pour les fanas de la programmation et 
ceux qui veulent s’y mettre... un en¬ 
semble Indispensable en SUPER PROMO ! 

- le livre AU COEUR VE L 1 ATMOS par 
Gilles BERT1N (l'auteur de Cobra 
Plnball). 

- l$s logiciels KIT'ECRAN, ORIC BASIC +, 
V.A.O et CARACTOR. 

(Valeur globale normale : 515 F). 


Auteurs et distributeurs, contactez-nous ! 
nom ... 

ADRESSE . 


CODE POSTAL . VILLE . 

Veuillez me faire parvenir les programmes suivants : 
-titre-prix — 


(les prix sont TTC). Port : 10 F 

Ci-joint mon réglement soit : Total: . 
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Dessin de couverture de Roland 
ODORE d'après M. ESCHER. 

TELEPHONE : vous pouvez join¬ 
dre la rédaction de THEORIC le 
mercredi de 9 h à 12 h et de 14 h 
à 17 h et le vendredi de 9 h à 
12 h. N'essayez pas en dehors 
de ces créneaux, nous ne pour¬ 
rions pas vous satisfaire... 


V ous avez réalisé des programmes, 
découvert quelque chose ? 
Peut-être la technique vous permet de 
réaliser des extensions. Faites en pro¬ 
fiter les lecteurs de THEORIC. 
Envoyez-nous vos articles. Téléphonez 
à Denis BONOMO au (16.99) 52^8.11 
et expliquez-nous vos travaux. Ils 
seront rémunérés par des droits d'au¬ 
teur. 
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EDITO 


I l y a quelques mois, j'ai dû subir de violentes 
attaques de Denis TAIEB dans la presse spécia¬ 
lisée hebdomadaire (en l'occurence Hebdogiciel... 
notre journal préféré après le nôtre !). 

Il m'était assez facile d'écrire "il ment”. Par expé¬ 
rience, je sais que le temps travaille souvent pour 
moi. Or, je n'ai pas dû attendre longtemps. 

Que nous reprochait l'ex-importateur "officiel” 
d'ORIC ? D'exister, sans doute, mais aussi de dif¬ 
fuser des fausses informations, particulièrement 
au niveau du Stratos. 

Las ! Quelques jours après, la presse informatique 
présentait ce fameux Stratos dont l'existence était 
contestée. 

Aujourd'hui, THEORIC, avec ses problèmes de dif¬ 
fusion, poursuit sa route quoique l'on en dise à 
Paris. MICR'ORIC. quant à lui, va basculer à lon¬ 


gue échéance sur le MSX GOLDSTAR (nouvelle 
diffusion ASN). 

Par contre, ORIC change de main et passe dans 
celle de M. TALAR de la Société EUREKA. Le 
syndic ORIC Angleterre devant poursuivre ASN 
pour une dette de plusieurs milliers de livres 
anglaises. 

Non, ORIC n'est pas mort, et nous pensons que 
c'est un bien. Ne serait-ce que pour le service 
après-vente. Espérons que les revendeurs en pren¬ 
dront conscience. 

Une page est tournée ; merci à ASN de nous avoir 
fait connaître ORIC. Ici, nous ne conservons que 
les bons souvenirs ! 

S. FAUREZ 

Directeur de Publication 


DIALOGUE * 

UTILITAIRE DE LIAISON.120 F 

raccordements par prise cassette- 
réseaux - poss. liaison téléphonique 
ORIC I et ATMOS 

DAMAE .100F 

Dames françaises 110 x 101 
-sauvegarde partie en cours 
-ATMOS 






CLAVIDACT 

METHODE 0E FRAPPE.120 F 

10 niveaux - libre choix couleurs, 
dilliculté et durée des exercices- 
ATMOS-THOMSON MO 5 

ELEPHORM .dûf 

ELEPHCOLOR ,»., 

Retrouvez la mndèle parlais disparu 
parmi 17 morcelés 32 lois - ATMOS 



port: 15F REGLEMENT A LA C0MMAN0E 


80 rue des Fourniers 07500 GUILHERANO . tel 75.404844 
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20, rue de Montreuil 94300 VINCENNES - 

OUVERT DU MARDI AU SAMEDI de 10 h 30 à 1 3 h 30 


REVENDEUR OFFICIEL AGRÉE 


Tèl. : (1) 328.22.06 

et de 15 h 30 à 19 h 30 


ORIC-FRANCE 


rUHIIMINI 



Imprimante seikosha GP 500A 

50 caractères par seconde 80 colonnes papier 
informatique permet l'édition de textes et gra¬ 
phismes de qualité correcte pour un prix raison 
nable La plus répandue en informatique familiale 
□ impnmanteSEIK0SHAGP500A- 2450 F 



Carte mère 

Grèce à ce câble vous pourrez connecter 3 inter 
faces et garderez la possibilité de brancher un 


lecteur de disquettes 

□ carte mère 3 slots- 205 F 

□ même modèle mais 1 Slot-90 F 


Rallonge Péritel 
Ne soyez plus 'collé' à l'écran ! 
□ rallonge- 


.60 F 


Synthétiseur vocal 

Enfin votre Oric peut s'exprimer ' Anglais d'origine 
il gardera son accent mais, grâce è un programme 
basic. vous dira 'bonjour', 'gagné* ou vous 
apprendra l’anglais ou l'allemand 

□ synthétiseur vocal 

(avec câble connexion). . 550 F 

_485 F 

Carte E/A 

Pour transformer votre One en centrale de me 
sures. Possibilité de brancher plusieurs cartes 

□ carte 8 E/A_395 F 

Carte E/S 

Vous permet de commander moteur, relais, lampe, 
sonnerie, projecteur 

□ carte 16 E/S_ 395 F 


Rallonge Joystick 

'Eclatez' vous sans rien arracher ! 

□ rallonge joystick 1.20 m- 120 F 

i S 


Interface Péritel/Secam 

Pour ceux qui n'ont pas de prise péritel sur leur 
TV 

□ interface C G V_ 500 F 


Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation..90 F 


Alimentation 6.9 ou 12 V 
Pour votre péritel. calculatrice 
□ alimentation_70 F 







Cassette spéciale micro 

□ les 5---95 F 

□ les 10_»0 F 


Carte Buffer 

Amplifie les signaux du bus permettant la con¬ 
nexion de plusieurs interfaces Munie d une prise 
pour alimentation externe si nécessaire 
□ carte bufftf . - . N.C- 





JASMIN 

Le lecteur de disquette que votre Oric préfère. 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette 

□ lecteur simple téta - - — -2990F 

□ lecteur double tête 3690F 



□ 50 super-jeux * 
sur une cassette... 


150 F 


□ Moniteur assembleur désassembleur 140 F 

□ Assembleur symbolique 260 F 


□ Gengraph 

□ J'apprends la CAO. 

□ Lorigraph... 


□ Editeur Musical _ 

□ Le manoir du Docteur Gémus 

□ Le mystère de Kikekankoi ■ 


140 F 
180 F 
280 F 
95 F 
140 F 
180 F 


□ Intox et Zoé*-180 F 

□ Le retour du Docteur Gémus —— 140 F 

□ Citadelle_190 F 

□ Le diamant de Nie Maudite*-140 F 

□ L'aigle d'or - -- 180 F 

□ Caspak_95 F 

□ Crocky_120 F 

□ Hubert_120 F 


□ Pengoric —-- 

□ La chenille infernale 

□ La protector- 

□ Onon_ 

□ Gastronon- 

□ 3DMunch- 

□ Sorvivor- 

□ Super jeep- 

□ Ooggy- 

□ Reversi champion — 

□ Le général- 

□ J'apprends l'anglais 

□ Course aux lettres — 

□ Calcul mental- 

□ Tic tac- 

□ Vision- 

□ Basic français_ 

□ Challenge voile- 

□ Lotoriciels... 

□ Las Vegas- 

□ Annuaire.. 


□ Gestion de stock 

□ Budget familial_ 


□ Le millionnaire 

□ Terminus . 


80 F 
80 F 
95 F 
95 F 
95 F 
140 F 
95 F 
120 F 
120 F 
140 F 
95 F 
140 F 
95 F 
120 F 
120 F 
120 F 
140 F 
140 F 
120 F 
95 F 
140 F 
180 F 
140 F 
120 F 
120 F 


ATMOS 48K 

Manuel en français, 
bloc alimentation 

n. 

câble magnéto. 

1585F H! 


□ Oon Juan et dragueur 

□ Elysées 

145 F 

145 F 


N. C. 

□ Stnp 21- 

_120 F 

. 120 F 


120 F 


120 F 


120 F 


90 F 


90 F 


140 F 


180 F 


215 F 

□ Bla-bla-bla. 

180 F 

□ M Wimpy . 

100 F 


100 F 


100 F 


85 F 

□ MARC 

9b F 


90 F 


95 F 


100 F 


80 F 


110F 

□ Zorgen - 

110F 
105 F 


110F 


95 F 


250 F 


160 F 

□ Waydor. 

140 F 


105 F 


105 F 


160 F 


95 F 


155 F 

□ Worldwar3 . 

95 F 


95 F 


95 F 


140 F 


190 F 


190 F 


95 F 


120 F 


120 F 


180 F 

□ Transat one_ 

□ Zoolympics- 

_140 F 

_120 F 


LOGICIELS AMSTRAD DISPONIBLES 


DGALAXIA__75 F 

un très beau combat galactique 

□ ALIEN BREAK IN _100 F 

superbe jeu d'arcade ou vous choisirez parmi 
plus de 10 tableaux l'option "pilote" ou "arcade" 
et la vitesse de votre vaisseau 

□ GRAND PRIX - 100 F 

la formule 1 dans un fauteuil 

□ 3D MONSTER ___.100 F 

sortez d'un labyrinthe en trois dimensions et 
sur trois niveaux parsemé d'embûches 

1 



□ ATOMSNIASHER_100 F 

au cœur d'une centrale nucléaire vous allez 
"bombarder" les protons en empêchant l'en 
crassement et l'élévation de la température 

□ COUNTRY COTTAGE _125 F 

fantastique jeu de stratégie financière - texte 
et superbes graphismes 

□ STAR AVENGER_80 F 

parmi les neufs parcours possibles dirigez 
votre vaisseau spatial en évitant les tirs 
ennemis 

□ SUPER-PROMOTION AMSTRAD 

les 7 logiciels ci-contre : 680 F 

1 joystick "TRIVITT" 140 F 
820 F 

660 F !!! 


Branchement ordinateur/magnétoscope 

Grèce è cette interface laissez brancher en per 
manence votre ordinateur et votre magnétoscope. 
Prévoir une alimentation 12 V 
□ interface ordi /magnétosc 345 F 


Interface M.I.D.I. 

Le standard M,1.0.1. est le slandard 'RS232* de 
la musique Connecté è un synthétiseur, boite è 
rythme, orgue, vous programmerez (en basic) 
les plus belles mélodies 

□ interface M I D I_Ü-C. 



Moniteur 12” 

Splendide moniteur 12“ monochrome vert ou 
ambre Un modèle professionnel è un prix grand 
public 

□ moniteur 12" vert ou ambre--1400 F 



Mannesmann MT 80 S 

L’imprimante 'top niveau' en informatique fami 
liale lOOcaractères par seconde Papier normal 
ou informatique Entrainement par friction ou 
traction Si vous recherchez une qualité 'courrier' 
la MT 80 vous donnera plus que des satisfactions 
tant pour le texte que pour le graphisme 
□ Mannesmann MT 80ft- F ! 
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Le 'MUST' en matière de joystick ! 8 directions, 
contact par micro-contact, robuste, élégant, précis 
il ne vous décevra pas. garanti 1 an. compati 
ble standard ATARI et MSX 
□ joystick TlRVITT_ 140 F 


Interface tous jeux 
Grèce è cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux 
□ interface tous jeux ..... 425 F 




Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC ! 
imprimante MCP 40 1600 F 


MOOEM 

Votre ORIC s'ouvre sur I extérieur II "discute* 
avec ses semblables et accède au réseau 'minitel'. 
Fourni avec interface intégrée et logiciel 
□ modem ...—..— 1490 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro ordinateurs vous évitera bien des soucis. 
Entrée OIN ou Jack Niveau réglable Témoin 
sonore et lumineux Alimentation intégrée 
□ magnétophone ..-.—— 495 F • 




Câble Imprimante 

Vous permet de connecter votre Oric è n'importe 
quelle imprimante au standard ‘centromc* 

□ câble imprimante___150 F 

Câble Moniteur 

Pour brancher votre Oric è un moniteur mono 
chrome 

□ câble moniteur-95 F 


COMMENT COMMANDER : 

- Cocher lefs) artdefs) desirefs) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inferieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur à 1000 F). 

Je possède □ ORIC 1 □ ATMOS 

NOM :__ PRENOM_TÉL :- 


ADRESSE :_____CODE POSTAL : 

Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20. rue de Montreuil 94300 VINCENNES 


VILLE : 


réseau 



TOUS NOS PRIX SONT A TITRE INDICATIF. 










































































































































LE VIRUS 


Vous êtes un passionné 
de micro-informatique. 
Nous partageons cette passion 
avec celle de la robotique. 

Notre objectif: 
LE MICRO-UTILE. 



Aujourd'hui nous vous proposons 
quelques accessoires indispensables. 
Demain: des robots, des kits 
électromécaniques, des interfaces 
spécialisés, des logiciels spécifiques... 

RENSEIGNEZ-VOUS 


NE JETEZ PAS VOTRE 
MAGNETOPHONE 
pour “LOAD ABORTED" 

CHARGEUR CASSETTE (MCC) 

branché entre 
votre magnétophone 
et votre micro 
il adapte le signal 
pour le chargement correct 
de toutes vos cassettes 

fonctionne sur pile, en boitier 



PLUS DE PROGRAMME PERDU 
à cause du secteur 

ALIMENTATION SECOURUE (MAS) 


alimentation 

secourue 




Sortie micro secourue 
par batteries (autonomie 15 mn) 
alimentation pentel prise 220 V 
aux. commutée 
A/Marche 220 V 
A/Marche micro (RAZ) 
livrée avec cables et batteries 
en coffret. 



'oracr 

ATMOS. 


VOTRE MICRO 
AU SERVICE DE LA MAISON 

INTERFACE DE PUISSANCE (MIP) 
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« 


• 

MIP 


G 

G 

G 

Q 



© 


G 

© 


« 

» 

« 


Wicfàb 


8 sorties 220 V (16 A) 

Commutation par relais, 
toutes sorties commutables simultanément, 
branchement sur sortie imprimante, 
programmation simple en BASIC. 

Livrée avec cable et notice, 
en pupitre 


BON DE COMMANDE 



9,rue Frédéric Mistral - 09300 LAVELANET 
Tél. (61)01.11.30 


CONDITIONS DE VENTE: 

1 A TOUTE COMMANDE DOU ETRE JOINT UN REGLEMENT DU MONTANT TOTAL 

2 LES MARCHANDISES ASSUREES. SONT EXPEDIEES AUX RISQUES ET PERILS DE L ACHETEUR. POUR 
ETRE VALABLE TOUTE RECLAMATION DOIT NOUS PARVENIR DANS LA HUIT AINE DE LA RECEPTION DE 
LA MARCHANDISE MATERIELS GARANTIS 6 MOIS 


DESIGNATION 

NOMBRE 

PRIX 

MCC 

240 TTC 



MAS 

400 TTC 



MIP 

000 TTC 



FRAIS DE PORT 10 F PAR MATERIEL 



PRIX DE LANCEMENT 

TOTAL 



Nom ...._.......,...,.-, -- 

Prftnom ........ .-.-,. 

Ru«_____ _ _N* _ 

Code postal_ VMo___ 

SIGNATURE 


DATE 


REVENDEURS OU VENTE PAR QUANTITES NOUS CONSULTER 








































COURRIER 


M. PEIGNET - 44 BLAIN 

Est-il possible de redéfinir les 8 
couleurs de TA TM O S ? 

Non, la fabrication des couleurs 
par l'ATMOS n'a rien de commun 
avec la génération de caractères, 
qui, eux, sont redéfinissables. 

UNE QUESTION 

QUI REVIENT SOUVENT 

Quelle aide pouvez-vous apporter 
à un club ? 

Il ne nous est pas possible d'ai¬ 
der financièrement les clubs se 
créant ou existants, par contre 
nous pouvons leur offrir l'espace 
nécessaire, dans la revue, pour se 
faire connaître et rechercher 
éventuellement des contacts. 
Nous répondrons de la même 
façon pour les dons de matériels. 
Fournisseurs et importateurs sont 
de moins en moins philantropes ! 
Un don de matériel est souvent 
lié à une opération publicitaire 
(voir lots dans les concours, etc.), 
et il faut faire preuve, à la fois, 
d'imagination et de crédibilité 
pour conduire un fournisseur à 
vous aider. 

DISQUETTES 
5" 1/4 POUR ORIC 

A notre connaissance, il n'existe 
pas de lecteur de disques 5” 1/4 
interfacé directement pour ORIC. 
Par contre, nous vous rappelons 
que, en second lecteur, il vous 
est possible de mettre un 5''1/4 
avec le JASMIN (confirmé par un 
de nos lecteurs, M. ALBOIN de 
Nice, ayant fait l'expérience) et 
avec le DISCORIC. L'intérêt est, 
bien entendu, le faible coût des 
disquettes 5" 1/4 par rapport aux 
3". 

AMIFICHE : SUITE ! 

M. Claude MALEGOL nous écrit 

1 re version, ça ne marche pas, le 
programme se plante si l'on ren¬ 
tre beaucoup de fiches ou à la 
mise à jour (mêmes problèmes 
que M. DEL B OS). 

Je possède maintenant une nou¬ 
velle version qui fonctionne par¬ 
faitement, j'ai rentré 160 fiches 


sans problèmes, dimanche der¬ 
nier j’ai même rentré 50 fiches en 
une seule fois. J’ai testé toutes 
les fonctions : recherche multicri- 
tères, modifications, suppres¬ 
sion, la création de fichier est 
définissable sur 10 rubriques et 
il y a la possibilité de mettre un 
mot de passe avant l’ouverture 
du fichier et Ton peut faire des 
étiquettes. 

Il semblerait que M. TR AN ait ses 
petits "trucs” et qu’il veuille gar¬ 
der pour lui ta réalisation et la 
vente de logiciels pour son lec¬ 
teur : mauvaise politique et para¬ 
doxe, car plus il y a de program¬ 
mes pour un matériel, plus on en 
vend.... 

Nous laissons à M. MALEGOL la 
responsabilité de sa conclusion, 
mais, sans vouloir défendre 
TRAN, dont nous avons vu le 
logiciel MULTIFICH fonctionner 
correctement, AMIR n'a pas 
donné suite à sa proposition 
consistant à nous soumettre, 
pour essais, un AMIFICHE 
"débogué". 

AMELIORER LES 
PROGRAMMES DE THEORIC 

Quelques lecteurs nous ont fait, 
à juste titre, remarquer que les 
programmes publiés pouvaient 
être améliorés. C'est un fait cer¬ 
tain, et l'exercice consistant à 
optimiser un programme sera 
profitable à qui voudra le tenter. 
Sachez que, souvent, l'auteur 
crée son programme en cher¬ 
chant un maximum de clarté (ou 
à l'inverse, d'efficacité). Il est 
alors possible de les compacter, 
de supprimer des REM, de revoir 
certaines structures. Toujours 
est-il que, si ce travail vous paraît 
nécessaire, il n'en va pas de 
même pour l'équipe de rédaction 
qui n'a pas le temps nécessaire 
(ni l'envie) d'effectuer ces modi¬ 
fications. 

DES RUBRIQUES 
QUI VOUS DEPLAISENT 

La ''Cote d'Amour" et "ARCA- 
DORIC" vont disparaître de 
THEORIC puisque tel est votre 
désir. Vous semblez ne voir 


aucun intérêt à ces deux 
tableaux. Nous pensions, en les 
créant, être plus proches de vous 
et vous inciter à participer davan¬ 
tage à la vie de la grande famille 
ORIC. La "Cote d'Amour" sort 
donc de nos colonnes dès ce 
numéro. ARCADORIC lors du 
prochain. 

Cyril CLAUS - 20 AJACCIO 

• 

J’ai un problème pour faire 
démarrer un programme automa¬ 
tiquement après le DOS sur Jas¬ 
min. L'ordinateur se bloque après 
exécution. 

Nous pensons que la solution est 
simple : peut-être avez-vous tout 
simplement omis de lire la notice 
qui précise que, dans le cas de 
l'utilisation d'un programme 
appelé par le BOOT, il faut met¬ 
tre dans ce programme : 

DOKE # 1 B, # CCBO sur ATMOS 
DOKE # 1 B, # CBED sur ORIC-1. 
Nous ne voyons pas d'autre 
explication au mauvais fonction¬ 
nement du ISTART que vous 
constatez. 

Quant à votre seconde question, 
cher lecteur, il vous faudrait 
questionner les divers annon¬ 
ceurs (ORDIVIDUEL peut-être ?). 


TRES IMPORTANT 

Le numéro de juillet de THEORIC 
sera peut-être difficile à trouver 
si vous n'êtes pas abonné. En 
effet, bon nombre de détaillants 
sont en vacances, et les circuits 
de distribution fonctionnent au 
ralenti... 

Pour être sûr de ne pas le man¬ 
quer, commandez-le dès 
aujourd'hui, directement à : 

SORACOM 

10, av. du Gai. de Gaulle 
35170 BRUZ 

...et n'oubliez pas de joindre un 
chèque de 30 F. 
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UN PETIT TRUC 


Gilles DEWAGHE, comme plu¬ 
sieurs autres lecteurs, a construit 
le montage proposé dans notre 
numéro 5 par J.P. MORIN pour 
accéder à la RAM OVERLAY. Il a 
trouvé pratique d'y adjoindre 2 
LED (diodes électroluminescen¬ 
tes) et une résistance, car ce dis¬ 
positif simple permet de savoir 
instantanément si ORIC est dans 
la ROM ou la RAM OVERLAY. 
Vous n'êtes plus à 4 soudures 
près, alors faites comme lui ! 


Q 

74 LS 74 

0 


S 


6 


LED 2 



LED 1 




Vers 2 de IC2 


0V 


LED 1 

LED 2 

ROM 

RAM 

OVERLAY 

1 

0 

1 

0 

O 

1 

O 

1 



Cocher les ouvrages choisis : 

□ INTERFACES POUR ORIC 1 ET ATMOS. 59 F 

□ PROGRAMMES POUR VOTRE ORIC. 85 F. 

□ NAVIGUEZ AVEC ORIC 1 ET ATMOS. 45 F 

APPRENEZ L'ELECTRONIQUE SUR ORIC ET ATMOS . 110 F 
COMMUNIQUEZ AVEC VOTRE ORIC 1 ET VOTRE ATMOS 145 F 

C POOPY . 80 F 

□ WATER PANIC. 80 F 

□ EDITEUR-ASSEMBLEUR - VERSION 1.1 .150 F 

□ MHZ BROCHE N° 2 (8 à 13). 65 F 

□ MHZ BROCHE N° 3 (14 à 12)..*. 70 F 


Total : .F 

10 % de port :.F 


Règlement : .F 

Je désire recevoir les ouvrages cochés contre.F en chèque. 


CCP, mandat* à l'ordre des Editions SORACOM. 


Nom .Prénom 

Adresse . 


' Rayer les mentions inutiles. 


Ville. 

Code Postal 

Date. 

Signature . 
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NOUVELLES 


TENNIS ET 

MICRO-INFORMATIQUE, 

UN PROGRAMME 
DESORMAIS COMPATIBLE 

Tenter d'acquérir tout à la fois le 
service de Mc Enroe et l'aisance 
de Joël de Rosnay devant son 
micro-ordinateur est désormais à 
la portée de tous. 

L'Association Logami (les amis 
du logiciel) propose en effet une 
formule originale de stages qui 
concilie l'apprentissage parallèle 
du tennis et de la micro- 
informatique. 

Ces stages, d'une durée d'une 
semaine, prévoient un pro¬ 
gramme d'enseignement de 20 
heures d'informatique (sur des 
matériels APPLE II et Macintosh) 
et de 10 heures de tennis. 
Basés sur des méthodes simples 
et pratiques, ils s'adressent dans 
les deux disciplines aussi bien à 
des débutants qu'à des prati¬ 
quants confirmés (un enseigne¬ 
ment spécifiquement adapté aux 
enfants est prévu). 

Les adeptes de cette formule 
bénéficieront en outre d'un envi¬ 
ronnement naturel exceptionnel. 
Les stages se déroulent en effet 
dans l'île d'OIéron, à Saint Tro- 
jan, dans le cadre d'un village 
vacances situé en pleine forêt. 
Au programme, également d'au¬ 
tres activités en libre accès sont 
prévues : piscine, tir à l'arc, dis¬ 
cothèque... et même une garde¬ 
rie pour les plus jeunes qui n'ont 
pas encore l'âge de pratiquer. 
Les prix proposés sont de plus 
très attractifs. La formule 
comprenant 7 jours en pension 
complète avec enseignements et 
activités en libre accès coûte 
3000 F par stagiaire. 

Pour tout renseignement complé¬ 
mentaire et inscription, s'adres¬ 
ser à la société : 

LOGAMI 

72, Boulevard Raspail 
75006 PARIS 
Tél.: 222.05.55. 



OPERATION 
PARRAINAGE ASN, 

SUITE... ET FIN ? 

Nous avons reçu trois ou quatre 
lettres de mécontents soulignant 
que, plusieurs mois après l'opé¬ 
ration parrainage, il n'ont toujours 
pas reçu leur cadeau (et le filleul 
les logiciels "gratuits”). De son 
côté, ASN annonce avoir eu des 
problèmes d'acheminement PTT 
et que tout doit être résolu main¬ 
tenant. 

Si vous êtes dans cette situation, 
"victime d'un oubli", lors de 
l'opération parrainage d'ORIC 
FRANCE, écrivez-nous en nous 
précisant la date de la transac¬ 
tion. 

Il est vrai que, maintenant, il sera 
peut-être difficile de parler ORIC 
avec ASN. 

JASMIN 2 
A DES FRERES 

Le lecteur double-tête conçu chez 
TRAN et produit par DATTEL a 
été adapté au SINCLAIR QL. Le 
QL visait (vise ?) une clientèle 
professionnelle, mais était ridicu- 
leusement limité avec ses micro¬ 
cartouches qui ne sont pas des 
disquettes. Il est certain que l'im¬ 
portateur du QL, DIRECO, a fait 
un bon choix pour adapter sa 
machine au marché français, plus 
exigeant peut-être, que celui 
d'Outre-Manche. 


DES PRIX 

TRES COMPETITIFS 
POUR ATMOS 

Une configuration complète avec 
magnéto cassette et moniteur 
couleur est proposée pour 
3490 F. 

De quoi casser sa tirelire, non ? 


COTE SAV 

EUREKA va mettre sur pied un 
service après-vente puisque la 
société disposera de l'infrastruc¬ 
ture nécessaire. Un forfait main- 
d'œuvre est prévu pour les 
machines achetées "ailleurs", le 
propriétaire payant les pièces 
détachées. 

KIT DE 

TRANSFORMATION ATMOS 

Voilà qui va mettre du baume au 
cœur des possesseurs d'ORIC-1 
désireux de passer sur ATMOS : 
un kit complet de transformation, 
à moins de 500 F, leur sera pro¬ 
posé par EUREKA. Il comprend : 

— la ROM, 

— un numéro de série, 

— le clavier complet et son 
connecteur, 

— le boîtier, 

— la manuel en français. 


CLUBS 


Micro-Club d'Orléans compre¬ 
nant une section ORIC, assure 
des cours de programmation en 
Basic et en Langage Machine. La 
cotisation est de 200 F par an. 
Pour tous renseignements, 
contacter Jean-Claude PELLE¬ 
TIER au (38) 63.09.08. 

CLUB DTL 2000 

Jacques-François WADEL (3) 
974.57.94 (le soir). 

CLUB TONIC 

Marc TRUSCH (1) 771.70.11 
(locaux seulement). 
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ORIC. CA REPART ! 

a 


C OCORICO ! Imaginez ORIC 
ATMOS à côté d'un béret et 
d'une baguette de pain. Pour¬ 
quoi ? Lisez plutôt ! 

ORIC Products International n'est 
plus à vendre. L'histoire, vous la 
connaissez, et si le numéro 8 de 
THEORIC n'était pas sorti si tard 
(ah, les week-ends prolongés et 
ponts du mois de mai, sans 
compter un déménagement...), 
les faits auraient davantage collé 
à l'actualité. 

Résumons-nous : fin avril 1985, 
Messieurs TAIEB (pour ASN) et 
TALAR (pour EUREKA Informati¬ 
que) sont face à face ; les deux 
sociétés sont prêtes à racheter 
ORIC Angleterre. Une affaire qui 
n'en finit pas de se régler car il y 
a déjà plusieurs mois que ça dure, 
la liquidation d'ORIC Angleterre 
datant de février 1985. 

6 MAI 1985 : conférence de 
presse organisée par ASN qui 
affirme être en bonne place 
(M. Denis TAIEB serait le plus 
crédible aux yeux du syndic) pour 
emporter l'affaire. Soit ! Une date 
est même avancée : le 16 mai... 
Depuis cette conférence, le 
mutisme le plus complet règne 
chez ASN. 

1 er JUIN 1985 : la bombe éclate. 
Le contrat est signé entre 
EUREKA et ORIC Products. L'ob¬ 
jectif annoncé par EUREKA est 
tout à fait louable ; lisez plutôt. 

ATMOS DEVIENT 
CITOYEN FRANÇAIS 

Jean-CLAUDE TALAR l'a donc 
emporté et, dans les cartons déjà 
ficelés, il y a environ 10 000 
ATMOS (dont une partie à finir 
d'assembler), 90 000 pièces 
détachées pour assurer le SAV 
durant de longs mois et des pro¬ 
jets ambitieux. Le plus important 
est de savoir que des milliers 
d'ATMOS vont être fabriqués en 
France, par une usine installée sur 
notre bonne vieille terre de Nor¬ 
mandie (rassurez-vous, elle ne 


fabriquait pas de camemberts 
mais, déjà, de l'électronique de 
pointe). De plus, comme les 
30 000 ATMOS qu'on compte 
encore vendre chez EUREKA ne 
sont pas un produit éternel, on va 
assurer une descendance à cette 
machine, un STRATOS façon 
française qui serait disponible en 
fin d'année. En attendant, 
l'ATMOS a de belles heures 
devant lui car, à 990 F équipé 
PERITEL avec 4 logiciels, il 
devient le produit le mieux placé 
au rapport qualité/prix. Je 
connais des THOMSON et autres 
claviers caoutchouteux qui vont 
faire grise mine ! 

Chez EUREKA, on est pour la paix 
des foyers, et une configuration 
complète (laissant le téléviseur 
familial libre) sera proposée pour 
3490 F : ATMOS 4- moniteur 
couleur + magnétophone). Dure 
concurrence pour un autre ordi¬ 
nateur à chapeau melon : l'AMS- 
TRAD CPC 464. Il est vrai que, 
en Normandie, la vidéo, on 
connaît déjà car la société ATV 
(environ 40 employés), qui va 
fabriquer ATMOS, construit des 
moniteurs, des décodeurs, des 
ensembles de réception par sate- 
lites... Qui plus est, on va tenter 
de regrouper et de favoriser la 
création autour de l'ORIC. 

Et chez ASN, que pense-t-on de 
SPID (Société Prospective Inter¬ 
nationale de Distribution) alias 
EUREKA ? Déjà, lors de la confé¬ 
rence de presse du 6 mai, on atti¬ 
rait l'attention sur une importa¬ 
tion "parallèle" sans la nommer, 
qui vendrait à bas prix du maté¬ 
riel non garanti, voire en panne. 
Il est clair que, sans les nommer, 
les nouveaux patrons d'ORIC 
étaient visés. Comment se peut- 
il que ASN, propriétaire des noms 
ATMOS et STRATOS et des 
licences de fabrication pour 5 
ans, ait pu ainsi se laisser faire ? 
Claude TAIEB dit que leurs hom¬ 
mes de loi sont sur l'affaire. A 
suivre ? D'un autre côté, M. 


TALAR annonce que, outre le 
dépôt frauduleux de marque 
opéré par ASN, cette société 
devrait quelques milliers de livres 
aux Anglais et, faute de paie¬ 
ment, serait en situation de rup¬ 
ture de contrat. 

Toujours est-il que chez ASN, on 
préfère tirer un trait sur le passé 
et penser à l'avenir. Claude 
TAIEB déclare : 

« ORIC PRODUCTS a été racheté 
aux enchères et, du fait que tout 
le réseau est démantibulé en 
Angleterre et les usines paraly¬ 
sées, ce sont "les éléments de 
l'actif liquidé" qui ont été rache¬ 
tés. » 

ASN n'était plus intéressé par 
ORIC PRODUCTS faute d'un 
gage de sécurité sur l'avenir. 
Chez ASN, on est contre "le 
court terme" (nul ne saurait vous 
blâmer. Messieurs). Oui mais, 
alors, on était prêt, il y a quelques 
jours, à racheter ce "passif" ? 
Après avoir longuement appuyé 
financièremnt ORIC PRODUCTS 
et promu le produit en France (ça, 
c'est vrai et nul ne pourra le 
contester), ASN se retire sur la 
pointe des pieds. Les dernières 
machines qui sont en leur posses¬ 
sion (ainsi que celles stockées par 
les revendeurs du réseau) devrai¬ 
ent être bradées, leur prix étant 
aligné sur celui de la concurrence. 
Mais que va penser le petit reven¬ 
deur du réseau qui a acheté (et 
payé "cash") avec une marge 
réduite des ATMOS à l'ancien 
prix ? Décidément, être reven¬ 
deur ORIC (réseau ASN) n'aura 
pas été une sinécure ! Chez 
EUREKA, on est conscient du 
problème, et les conditions con¬ 
senties aux revendeurs devraient 
être moins draconniennes. 
Quant à MICRO ORIC, la revue 
éditée par ASN, elle continuera 
pendant quelque temps à hono¬ 
rer ses abonnés et va, petit à 
petit, s'orienter vers le MSX 
GOLDSTAR FC 200, le nouveau 
cheval de bataille de ASN. 
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DISQUETTES DE THEORIC 


Pour éviter toutes confusions et 
toutes réclamations ultérieures 
(que nous n'accepterons pas), il 
est précisé que les disquettes 
fournies contiennent les program¬ 
mes tels qu'ils sont publiés dans 
THEORIC... 

VOLUME : THE04-5 


U 

A .SYS 

S 

62 SECTORS 

U 

A .BAS 

S 

4 SECTORS 

U 

CALCÎ1ENT.BAS 

s 

14 SECTORS 

U 

DRAPEAUX.BAS 

s 

42 SECTORS 

U 

SYNTHETI.BAS 

s 

50 SECTORS 

U 

COURBES .BAS 

s 

88 SECTORS 

U 

VISIORIC.BAS 

S 

33 SECTORS 

U 

DESCENTE.BA5 

s 

9 SECTORS 

U 

ENVELOPP.BAS 

s 

16 SECTORS 

U 

TRANSFER.BAS 

s 

3 SECTORS 

U 

SCATAT .BIN 

s 

3 SECTORS 

U 

SCAÎOl .BIN 

s 

3 SECTORS 

U 

HIRES50 .BIN 

ç 

2 SECTORS 

366 SECTORS FREE 




VOLUME ; THE06-7 


U 

A-SYS .SYS 

C 

62 SECTORS 

U 

A .BAS 

S 

4 SECTORS 

U 

RENMDETR.BIN 

S 

6 SECTORS 

U 

RENHDETR.BAS 

s 

17 SECTORS 

U 

ANADIS .BAS 

s 

9 SECTORS 

U 

PENDULE .BAS 

s 

7 SECTORS 

U 

HRSHCP40.BAS 

s 

6 SECTORS 

U 

TSTA2IAT.BIN 

s 

2 SECTORS 

U 

TSTA2I01.BIN 

s 

2 SECTORS 

U 

CONVEHEX.BIN 

s 

2 SECTORS 

U 

LIÏSEC .BAS 

s 

10 SECTORS 

U 

EDITECAR.BAS 

s 

11 SECTORS 

U 

MASTERJ1I .BAS 

s 

18 SECTORS 

U 

TESTBLUR.BAS 

s 

3 SECTORS 

U 

BLURKS .BAS 

s 

20 SECTORS 

U 

BLURKS1 .BAS 

s 

34 SECTORS 

U 

CATALAT2.BIN 

s 

2 SECTORS 

U 

CATAL012.BIN 

s 

2 SECTORS 

U 

VOICEAT .BIN 

s 

3 SECTORS 

U 

VOICE .BAS 

s 

2 SECTORS 

U 

BONJOUR .BAS 

s 

2 SECTORS 

U 

PARLE .BAS 

s 

2 SECTORS 

U 

AUTOVERF,BAS 

s 

7 SECTORS 

U 

PAR0LES2.BIN 

s 

31 SECTORS 

U 

V0ICE01 .BIN 

s 

3 SECTORS 


428 SECTORS FREE 


Ils ne sont ni adaptés aux besoins 
du Jasmin, ni transformés 
ORIC-1 ou ATMOS... Ce travail 
reste à vos soins. 

Seuls les logiciels dont la version 
''compatible” a été publiée dans 
THEORIC sont livrés en deux ver¬ 


SOS LECTEURS 

Les lignes de cette rubrique sont 
réservées aux lecteurs qui, 
communiquant leur adresse, dési¬ 
rent entrer en contact direct avec 
d'autres utilisateurs ORIC pour 
résoudre un problème bien précis. 
Pas question d'échanges de logi¬ 
ciels ou de vente de matériels... 

M. Marcel BEAUCHATON 
Route de Villedieu 
26110 MIRABEL AUX BARON- 
NIS 

Recherche la notice de la GP80 
ou éventuellement des photoco¬ 
pies, si possible en français. 

M. Christophe WINCKLER 
3, rue Lyautey 
92400 COURBEVOIE 
Comment maîtriser le code 
"ESCape *" de l'imprimante 
SMITH-CORONA Fastext 80 ? 
Cette commande permet la ges¬ 
tion des aiguilles... 

M. Gérard BITSCH 
2, rue Georges Bizet 
78100 ST. GERMAIN EN LAYE 
Recherche des personnes ayant 
entré le programme "GRAND 
PRIX”, paru dans le numéro 
"Spécial Informatique" de 
MEGAHERTZ et l'ayant trans¬ 
formé pour ATMOS. 

M. Patrick TRESPALLE 
464D, Cité Mussonville 
33130 BEGLES 

Recherche des utilisateurs 
d'ORIC ayant créé un logiciel 
capable de gérer les résultats 
d'un championnat de football ou 
simplement quelqu'un ayant des 
informations sur ce sujet. 


sions, ORIC-1 et ATMOS sur la 
disquette. 

Voici le contenu des disquettes 
n° 1 (THEORIC n° 4 et 5) et n° 2 
(THEORIC n° 6 et 7). 


Les services de THEORIC 

V ous le savez maintenant, 
l'équipe de THEORIC est à 
votre service dans plusieurs 
domaines, témoignant ainsi de 
l'intérêt que nous portons à nos 
lecteurs et surtout à nos abonnés 
(juste retour de la confiance qu'ils 
nous accordent). 

ABONNES : vous êtes les mieux 
servis (tarifs préférentiels, gra¬ 
tuité des réponses au courrier), 
mais il faut justifier de votre 
"condition d'abonné" enjoignant 
l'étiquette auto collante décou¬ 
pée sur l'enveloppe de votre 
THEORIC. Ceci est indispensable, 
faute de quoi vous ne bénéficie¬ 
rez pas des conditions préféren¬ 
tielles. 

NON ABONNES : vos courriers 
nécessitant une réponse devront 
IMPERATIVEMENT être accom¬ 
pagnés d'une enveloppe affran¬ 
chie self-adressée pour le retour ; 
sans elle, votre lettre restera sans 
réponse. Pensez-y ! 

SERVICE PROGRAMMES : les 
programmes principaux, publiés 
dans la revue vous seront désor¬ 
mais proposés sur disquettes 
(groupant deux numéros de 
THEORIC). Plus de temps perdu 
à les écrire au clavier et... à 
rechercher les erreurs et fautes 
de frappe. Les prix : 165 F pour 
les non abonnés, 1 35 F pour les 
abonnés (justification requise, 
voir ci-dessus). 

La première disquette (-THEORIC 
n° 4 et 5) est disponible, et la 
seconde (n° 6 et 7) le sera prati¬ 
quement quand vous lirez ces 
lignes. 
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RESULTATS DU SONDAGE 


N ous avons procédé à l'exa¬ 
men de 500 bulletins de ré¬ 
ponse prélevés sur tous ceux que 
nous avons reçus. Nous vous 
proposons ci-dessous quelques 
commentaires résultant de la 
synthèse effectuée. 

CONCERNANT LA REVUE 

La parution mensuelle vous satis¬ 
fait à 92 %. Les 8 derniers pour¬ 
cents auraient souhaité une fré¬ 
quence de parution moins impor¬ 
tante, surtout à cause du prix. 
Vous avez parfois insisté sur le 
caractère excessif du prix de 
vente de la revue. Certains ont 
même suggéré d'augmenter le 
pourcentage de publicité pour 
ramener le prix à 20 F, comme au 
début. Sachez que nous ne som¬ 
mes pas favorables à cette solu¬ 
tion, qui transformerait THEORIC 
en catalogue ! Nous vous rappe¬ 
lons que le prix tient compte des 
services rendus (courrier person¬ 
nalisé, accès téléphonique à la 
rédaction), de plus, trop dépen¬ 
dre de la publicité revient à per¬ 
dre son indépendance. Un de nos 
lecteurs trouve le contenu 
complètement nul... THEORIC 
n'apporte pas de solution à ses 
problèmes. Par contre, à 80 % 
vous pensez que son contenu est 
équilibré. 15 % d'entre vous 
insistent sur l'aspect trop techni¬ 
que, et 5 % sur l'aspect pas 
assez technique. Ce qui vous 
intéresse le moins : BIBLIORIC. 
Vous souhaiteriez, en règle géné¬ 
rale, y trouver davantage de hard 
et, si possible, obtenir les plans 
des circuits imprimés ou des 
semi-kits... 

Vos derniers reproches concer¬ 
nent essentiellement la qualité 
d'impression : nous avons eu des 
incidents techniques qui ne 
devraient plus se reproduire, c'est 
promis. 


LECTEURS, QUI ETES-VOUS ? 

50 % non informaticiens, 2 % 
d'informaticiens ; le reste est une 
population de lycéens, d'étu¬ 
diants et d'électroniciens. 67 % 
de nos lecteurs ont moins de 35 
ans. Rares sont ceux qui utilisent 
ORIC à 100 % du temps pour 
jouer, un savant équilibre étant 
atteint entre l'apprentissage, l'uti¬ 
lisation pour le travail et le jeu. 

QUEL MATERIEL 
POSSEDEZ-VOUS ? 

33 % d'ORIC-1 contre 77 % 
d'ATMOS. Un total supérieur à 
100 % car certains utilisateurs 
possèdent les 2 ROM. Nous 
avons senti, chez les possesseurs 
de VI .0, la crainte de voir le nom¬ 
bre de programmes diminuer : ne 
craignez rien, nous continuerons 
à vous alimenter ! 

41 % des utilisateurs ont une 
imprimante : c'est certainement 
le premier périphérique que vous 
achetez ou dont vous envisagez 
l'achat. 

28,4 % ont un lecteur de disquet¬ 
tes (20 % JASMIN, 8 % DISCO- 
RIC et 0,4 % BD 500 et autres). 
Le prix d'un lecteur et le manque 
de logiciels tout faits, la difficulté 
de transférer les logiciels proté¬ 
gés que vous possédez déjà sont 
autant d'obstacles à l'achat de ce 
périphérique que vous convoitez 
pourtant. 

Un synthétiseur vocal (12 % ) et 
une carte E/S (10 %) sont les 
accessoires qui complètent votre 
ensemble. Les possesseurs de 
MODEM représentent seulement 
2 % des utilisateurs d'ORIC, mais 
c'est surtout parce que ce péri¬ 
phérique est assez mal connu. 
Tous ces compléments sont 
achetés tout faits, mais on note 
également quelques réalisations 
personnelles, ce qui reste encou¬ 
rageant. 


Le seul possesseur de BD 500 
(disque) nous réclame des infor¬ 
mations et des logiciels, mais... 
nous n'en possédons pas, hélas, 
à la rédaction. 

En règle générale, si vous avez un 
Jasmin, vous voulez des pro¬ 
grammes pour Jasmin, si c'est un 
Discoric que vous a offert le Père- 
Noël, vous réclamez plus de logi¬ 
ciels pour Discoric et... si vous 
n'avez pas de lecteur de disquet¬ 
tes, vous nous demandez d'arrê¬ 
ter la publication de programmes 
concernant les disquettes. Dans 
l'ensemble, tout cela s'équilibre, 
non ? 

Un dernier mot : vous comptez 
sur nous pour intervenir auprès 
des éditeurs de logiciels (dans le 
but de faire baisser les prix), des 
fournisseurs de matériels (service 
après-vente), de l'importateur 
(notices en français en même 
temps que le produit DOS, RAN- 
DOS). Nous pensons que tout 
cela peut s'arranger parfois à 
l'amiable, mais nous vous pro¬ 
mettons de faire le nécessaire, à 
phaque fois que possible pour 
tenter de résoudre ces problè¬ 
mes. 

Pour vous remercier d'avoir 
consacré quelques minutes à 
nous aider à améliorer THEORIC, 
nous avons tiré au sort 10 bulle¬ 
tins et offrons à leurs expéditeurs 
un petit lot (livre ou logiciel). 

LISTE DES GAGNANTS 


Marc GERVAIS 
Antoine GIRARD 
Jacques ROBIN 
Jean CHAUVEAU 
Marc LEVREL 
Danielle TALON 
J.-Luc NIELLEZ 
Patrick DUMONT 
J.-Louis TOESCA 
Alain WEBER 
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BIBLIORIC 



"Mieux programmer 
sur ORIC-1 et 
ATMOS" 

Michel 

ARCHAMBAULT 
SORACOM 
110 F 

Vous possédez votre 
ORIC depuis quelques 
mois, et vos 
connaissances en 
Basic commencent à 
s'étendre : il est 
temps de passer au 
stade supérieur et 
d'apprendre à mieux 
programmer. 

L'ouvrage que nous 
propose Michel 
ARCHAMBAULT 
permet au 
programmeur de se 
perfectionner. Il va 
l'aider à transformer 
un programme de 
débutant en un 
véritable logiciel. Pour 
ce faire, il faut 
apprendre à fignoler la 
présentation de ses 
programmes en 
soignant les pages 
titres, le choix des 
couleurs et des 
compléments sonores. 
Le logiciel devra 
s'adresser à des 
enfants ou à des gens 
n'ayant jamais touché 
à un ordinateur ? Il 
faut alors leur garantir 
un maximum de 
confort d'utilisation 
en prévoyant les 
fausses manoeuvres 
éventuelles. 

L'auteur vous 
apprendra à structurer 
vos programmes en 
les construisant en 
petits modules qu'il 
sera facile de modifier 
par la suite. D'ailleurs, 
il vous propose en 
exemple un petit 
utilitaire écrit en Basic 
que vous bâtirez avec 
lui au fil des 
chapitres. Les pièges 
à éviter sont passés 


en revue (boucles, 
"plats de nouilles", 
etc.). Vous 
apprendrez enfin à 
rechercher les erreurs 
de manière efficace. 
D'une présentation 
claire, écrit dans un 
style qui le placera à 
la portée de tous, ce 
livre aidera le 
débutant (et les 
autres ?) à progresser 
en apprenant la 
programmation et non 
son semblant. 


"TOURS DE FORTH" 
Marc PETREMAN et 
Michel ROUSSEAU 
Eyrolles 

Ce livre est 
certainement l'un des 
meilleurs écrits pour 
FORTH. C'est une 
vraie mine de 
renseignements et de 
programmes qui 
permettent de s'initier 
en passant 
rapidement de la 
théorie'à la pratique. 
Une surprise de taille 
vous attend : la 
grande majorité des 
programmes est 


conçue pour ORIC : 
utilisation des écrans 
TEXT et HIRES, 
histogrammes 3D, 
redéfinitions de 
caractères en LUTINS, 
jeu de Taquin 
tournent directement 
sous le FORTH de 
TANSOFT. 

D'aucuns ne 
manqueront pas 
d’accuser les auteurs, 
qui s'en défendent 
puisque FORTH est 
transportable, de 
favoriser 

heureusement ce 
micro-ordinateur : pas 
nous ! 
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VITRINE 
DU LOGICIEL 


"MONTSEGUR" 

Aventures 

NORSOFT 

Lors de vos vacances, 
vous avez rencontré 
un vieillard qui vous a 
fait part de l'existence 
d'un fabuleux trésor 
au Château de 
Montségur. Ce trésor, 
c'est le Saint-Graal, 
une pierre 
philosophale qui 
exaucera vos désirs. 
Un détour par le 
célèbre château vaut 
sûrement la peine, 
outre l'intérêt 
touristique de la 
chose, et, n'écoutant 
que votre courage, 
vous partez 
immédiatement pour 
l'aventure. 

La mise en scène 
étant réalisée, vous 
pouvez prendre 
connaissance de tout 
le vocabulaire qu'il 
vous faudra employer 
au cours de ce jeu. 

Pas de devinette au 
niveau des mots 
donc. Le jeu de 
caractères, 
entièrement redéfini, 
donne un bel aspect 
au texte, quoique 
certains pourront le 
trouver un peu plus 
difficile à lire. 

La seconde face de la 
cassette contient le 
jeu lui-même, et vous 
vous trouverez face à 
la porte du château. 
Les graphismes, du 
style ''vectoriel'' 
n'utilisent pas 
entièrement les 
possibilités de l'ORIC 


dans ce domaine, 
mais cela ne nuit pas 
à l'intérêt du jeu, 
plutôt fondé sur la 
résolution originale de 
certaines astuces de 
l'énigme. Précisons 
enfin qu'aucun effet 
sonore n'a été 
incorporé : vous 
pourrez jouer sans 
troubler la quiétude 
de votre entourage. 
Une parenthèse 
néanmoins... La 
protection utilisée par 
NORSOFT pour son 
logiciel est bien 
embêtante car, sans 
chercher le moins du 
monde à pirater, nous 
avons eu droit, à 
plusieurs reprises en 
plein cœur de 
l'aventure, à une 
réinitialisation 
complète du système. 
Ce genre de choses 
commence à devenir 
ennuyeux... Le 
programme semblait 
chargé correctement 
pourtant, car aucune 
autre anomalie ne 
s'était manifestée. 
Nous préférerions voir 
les éditeurs apporter 
davantage de soins à 
la réalisation de leurs 
logiciels qu'à leurs 
protections. Dans le 
cas présent, il nous 
paraîtrait plus 
judicieux de tester en 
début de partie 
l'intégralité du 
programme en 
mémoire plutôt que 
de pénaliser le joueur 
à cause d'un octet (?) 
mal chargé. 

Si l'aventure vous 


tente, prenez votre 
sac à dos, et en route 
pour Montségur. 

*'LE RETOUR DU 
DOCTEUR GENIUS'' 
Aventures 
LORICIELS 

La nouvelle crépite 
sur les téléscripteurs 
des agences de 
presse et sur votre 
ORIC, le terrible 
Docteur Génius est de 
retour !!! 

La première page du 
quotidien ''Le 
Monde'' lui est 
consacrée car il 
possède l'arme 
absolue, celle qui 
détruira l'humanité 
toute entière... Triste 
perspective à laquelle 
ce genre de jeux nous 
habitue et qui, 
pourtant, est une 
épée de Damoclès 
bien réelle, mais la 
question n'est pas là, 
et revenons-en à 
notre logiciel. 

Dans son infinie 
bonté, Génius vous 
laisse une ultime 
chance de 
contrecarrer son 
projet démoniaque. Il 
vous permet 
d'accéder à son 
vaisseau pour tenter 
de désamorcer son 
arme. Courageux 
comme vous l'êtes, 
vous voilà parti, mais 
attention, le triste 
docteur ne vous 
accorde que 20 
minutes, alors ne 
traînez pas en route. 
C'est une des 
originalités de ce jeu 
que de se dérouler en 
temps réel. La liste du 
vocabulaire vous est 
inconnue et, s'il vous 
est possible de 
sauvegarder une 
partie en cours, il 
faudra néanmoins 


découvrir le 
vocabulaire gérant la 
procédure. Il y a près 
de 1 50 mots en 
mémoire... 

Le jeu est plein 
d'humour, les 
réponses de 
l'ordinateur vous le 
prouveront, et 
l'analyseur sait 
comprendre vos 
intentions sur les 
seules 4 premières 
lettres des mots, que 
vous pouvez 
assembler deux par 
deux. 

Les graphismes, 
moins spectaculaires 
que sur l'Ile Maudite 
ou encore l'Aigle 
d'Or, restent corrects 
et chaque scène se 
dessine en deux à 
trois secondes. La 
redéfinition des 
caractères les rend un 
peu plus difficile à 
lire. 

Lors de votre mort, 
après s'être gentiment 
moqué de vous, 
l'ordinateur vous joue 
une petite musique et 
vous invite à 
recommencer. Si par 
contre, vous 
réussissez à vaincre 
Génius (ne désespérez 
pas, c'est possible), 
l'infâme docteur vous 
promettra de pfendre 
sa revanche. Tiens ! 
On dirait que 
LORICIELS a trouvé 
un filon, à moins que 
ses auteurs ne se 
lancent dans la 
réalisation de 
westerns spaghettis 
aux suites 
nombreuses. 

Nous avons bien aimé 
la mise en scène, 
l'aspect ''course 
contre la montre” et 
les remarques 
humoristiques alliés à 
une présentation 
toujours aussi 
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soignée. 

"SYMPHORIC" 
Didacticiel (Solfège) 
TECHNI-MUSIQUE 

En avant, la musique ! 
L'éditeur de ce 
logiciel d'étude du 
solfège s'y connaît 
puisqu'il est spécialisé 
dans les activités 
musicales. Installé à 
Clermont-Ferrand, il 
est à fa fois magasin 
et école de musique, 
et vend de 
l'informatique et du 
logiciel. 

Le point fort de ce 
logiciel 

d'enseignement du 
solfège est qu'il 
permet à chacun de 
travailler à son 
rythme. Il conviendra 
à la fois aux jeunes 
et... aux moins jeunes 
qui n'ont pas eu la 
chance de recevoir un 
enseignement dans ce 
domaine. 

Le mode d'emploi est 
dans le logiciel lui- 
même ; il faudra 
prévoir un crayon et 
un papier lors de la 
première utilisation. 
Quatre parties sont à 
votre disposition : 
étude des notes clé 
de SOL, étude des 
notes tlé de FA, 
dictée musicale et 
entraînement au 
rythme. 

Tout est progressif 
donc, et vous pourrez 
alterner phases 
d'apprentissage et 
d'exercices. Le niveau 
de difficulté est bien 
entendu variable. Il 
agit sur le nombre de 
notes à reconnaître à 
chaque fois. Votre 
note (sans jeu de 
mots) sera fonction 
du pourcentage de 
bonnes réponses 
obtenues aux 


questions. Les 
questions pourront 
être posées autant de 
fois que vous le 
souhaiterez. 

Les notes sont 
présentées sur la 
portée et jouées par 
l'ordinateur. Leur nom 
apparaît ; une image 
du clavier vous 
permet de les situer. 
Ecrit entièrement en 
Basic, le logiciel est 
un peu lent, mais cela 
ne représente pas un 
handicap ; au 
contraire, les 
possesseurs de 
disques n'éprouveront 
que peu de difficultés 
pour le transférer sur 
disquette. Autre atout 
supplémentaire : il 
n'existe pas 
d'équivalent, pour le 
moment, sur ORIC ; 
alors si la musique 
vous chante... 

'DIALOGUE'' 

Utilitaire 
Communication 
BLEU CIEL 
INFORMATIQUE 

Voilà un logiciel 
original et bien conçu. 
Il permet la connexion 
de deux ou plusieurs 
ORIC entre eux. La 
liaison s'effectue par 
la prise d'entrée-sortie 
cassette, celle-la 
même que vous reliez 
d'habitude à votre 
magnétophone. 

La cassette vous est 
fournie avec une 
notice de 8 pages, 
résumant l'essentiel 
des commandes et 
des possibilités de 
"DIALOGUE". Un 
schéma vous 
apprendra que le 
câble de connexion 
nécessaire devra être 
blindé à un ou deux 
conducteurs selon la 
configuration que 


vous choisirez. 

Le logiciel établit la 
liaison entre deux 
ordinateurs à la fois, 
ce qui permet 
d'échanger des 
écrans, des 
programmes ou des 
zones de la mémoire. 
Dans le cas où plus 
de deux ORIC sont 
connectés ensemble, 
chaque poste devra 
êtr« identifié par un 
nom de code, sorte 
d'indicatif. C'est 
l'utilisation astucieuse 
du relais de 
commutation de 
l'ORIC qui permet la 
liaison entre plusieurs 
machines sur une 
seule et même ligne. 
Une sorte de 
protocole de trafic a 
été établi et, si un 
peu de prudence et 
d'attention semblent 
nécessaires, dans le 
cas d'un réseau à 
postes multiples, pour 
éviter de "planter" le 
système, l'habitude 
raidant, vous trouverez 
beaucoup de plaisir à 
utiliser votre machine 
d'une nouvelle 
manière. 

Qui est concerné par 
ce genre de logiciel ? 
Les clubs pour faire 
des séances de 
travaux pratiques 
simultanés, les écoles 
qui pourront 
interconnecter deux 
salles de classe, tous 
ceux dont 

l'environnement met 
plusieurs ORIC en 
présence. 

La présentation 
globale est correcte, 
les différents schémas 
de liaison sont dans le 
logiciel lui-même et 
deux petits 
programmes de jeu 
sont fournis sur la 
cassette pour faire les 
premiers essais. 
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N ous vous proposons un logi¬ 
ciel permettant l'étude 
comparative des diverses métho¬ 
des de tri. Vu sa longueur, il rebu¬ 
tera peut-être certains d'entre- 
vous. Nous sommes néanmoins 
persuadés que les responsables 
de clubs devraient inciter leurs 
élèves à participer à la saisie de 
ce long programme. 

Par la suite, l'aspect didactique 
de ce logiciel offrira aux utilisa¬ 
teurs un bon terrain d'étude qui 
débouchera vers le choix de l'al¬ 
gorithme le plus adapté à un tra¬ 
vail donné. 

Le tri, ou le classement, est par¬ 
tout présent. Le professeur trie 
ses élèves, la cuisinière ses recet¬ 
tes, le bibliophile ses livres, le 
fonctionnaire ses fiches, etc. 
Chacun se débrouille comme il 
peut : il n'y pas de loi absolue. 
Avec l'essor des ordinateurs, les 
données dans un même fichier se 
sont multipliées. Il a fallu expli¬ 
quer à la machine comment 
remettre ces données dans l'or¬ 
dre. Les algorithmes de tri sont 
nés de cette nécessité. Ils sont 
tellement mieux qu'il faut main¬ 
tenant "trier” l'algorithme qui 
convient le mieux à un problème 
donné ! 

La première chose à remarquer 
est qu'un ordinateur ne sait 
comparer que deux nombres. 
Donc, lorsqu'il faudra en trier plu¬ 
sieurs centaines, l'algorithme 
devra être répétitif. Un pro¬ 
gramme de tri tourne sur lui- 
même jusqu'au classement final, 
auquel il aboutit après un temps 
plus ou moins long. 

On peut distinguer deux catégo¬ 
ries de méthodes de tri. Celles qui 
n'ont pas besoin de plus de place 
mémoire que celle qu'occupe le 
fichier à trier... et les autres. 


TRIONS... 


Jean-Marie GALL 


Parmi ces dernières, je citerai 
pêle-mêle la méthode par sélec¬ 
tion quadratique qui nécessite 
une place mémoiré égale à deux 
fois le fichier : 2N, la méthode du 
chat : 3N, celle de l'arbre : 5N et 
la méthode par distribution qui 
peut aller jusqu'à 11 N. Ces tris 
ne peuvent fonctionner que sur 
de gros ordinateurs. Nous n'en¬ 
visageons donc que les méthodes 
d'ordre N. 

Il existe trois méthodes de base : 
le tri à bulles, le tri par sélection 
et le tri par insertion. Vous ver¬ 
rez que les autres algorithmes se 
ramènent toujours plus ou moins 
à ces bases. 

Le tri à bulles est la méthode la 
plus évidente, informatiquement 
parlant. Dans les milieux non 
informatiques, jamais personne 
ne trie en suivant cet algorithme ! 
Puisque l'ordinateur ne sait 
comparer que deux nombres à la 
fois, nous allons lui faire compa¬ 
rer l'élément 1 du fichier avec 
l'élément 2. Si le deuxième élé¬ 
ment est plus petit que le pre¬ 
mier, on va les échanger. Sinon, 
on laisse comme ça. Puis, on va 
recommencer l'opération avec les 
éléments 2 et 3, puis 3 et 4, etc. 
En arrivant au bout du fichier, une 
chose est certaine : l'élément le 
plus grand est à sa place, c'est- 
à-dire la dernière, puisqu'il a été 
supérieur à tous les autres. Si le 
nombre d'éléments à trier est N, 
on recommence la même opéra¬ 
tion de l'élément 1 jusqu'à N - 1. 
Puis de 1 jusqu'à N-2, etc. A 
chaque passage, un élément est 
classé de façon certaine à sa 
place. Il faut N - 1 passages pour 
obtenir le tri total du fichier puis¬ 
que le n-1 e passage compare 
l'élément 1 avec l'élément 2 et 
s'arrête. 


Une constatation s'impose : les 
éléments à trier n'effectuent que 
des petits déplacements, ce qui 
entraîne un nombre de passages 
important ainsi que des échanges 
nombreux. 

Le tri par sélection pratique dif¬ 
féremment. On "sélectionne" 
dans le fichier 1 à N l'élément le 
plus petit et on l'échange avec le 
premier. Puis, on sélectionne, 
dans le fichier 2 à N, l'élément le 
plus petit et on l'échange avec le 
2 e , etc. Lorsqu'on arrive au 
fichier N-1 à N, une dernière 
comparaison finit le tri. Comme 
pour le tri à bulles, il faudra N-1 
passages, mais les échanges sont 
bien moins nombreux. 
Toutefois, certains d'entre eux 
sont regrettables et vont à l'in¬ 
verse du but recherché : imaginez 
le fichier suivant : 

8 9 7 (2000 nombres >100) 2 

Après un passage, le nouvel 
ordre est le suivant : 

2 9 8 (2000 nombres>100) 7 

Bien sûr, le nombre 2 est à sa 
place. Mais quel dommage que le 
7 ait été relégué au bout du 
fichier derrière les 2000 nombres 
qui lui sont largement supé¬ 
rieurs ! Ceci est dû au fait qu'il 
était jugé le plus petit jusqu’à ce 
que le programme rencontre 2. 
La troisième méthode de base est 
le tri par insertion. C'est un peu 
le tri que pratique le joueur de car¬ 
tes. Dans l'éventail qu'il a dans 
la main, il prend une carte qu'il 
"insère" à sa place, en décalant 
bien sûr les autres. Le programme 
va considérer le deuxième élé¬ 
ment et le comparer au premier. 
Il y aura échange ou pas suivant 
les circonstances. 

Puis, il va considérer le 3 e élé- 
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ment et le comparer au 2 e . S'il lui 
est supérieur, rien ne se passe. 
S'il lui est inférieur, il va mettre 
le 2 e élément à la place du 3 e (ce 
dernier est bien sûr sauvegardé 
dans une variable), puis va 
comparer le 3° élément (celui qui 
a été mis de côté) avec le 1 er . S'il 
lui est supérieur, il est inséré à la 
deuxième place. Sinon, c'est le 
1 er qui décale d'un cran et le 3 e 
qui prend la place du 1 er . C'est 
ainsi qu'un nombre situé à la x e 
place sera comparé avec tous ses 
précédents jusqu'à ce qu'il en 
trouve un qui lui soit inférieur. 
Soit y la place de ce dernier. Les 
nombres de la y e à la x - 1 6 place 
auront été décalés de la y + I e à 
la x e place, et celui qui occupait 
avant la x e place ira s'insérer à la 
y» place. Après UN SEUL pas¬ 
sage, le fichier est trié. Chaque 
élément est mis immédiatement 
à sa place parmi les éléments déjà 
triés. D'où la plus grande rapidité 
du tri par insertion. Mais il reste 
un problème, ce sont les dépla¬ 
cements en cascade qu'il génère. 
Ces derniers prennent un temps 
non négligeable dans le déroule¬ 
ment du tri. 

Pour améliorer ces différentes 
méthodes, beaucoup se sont mis 
au travail en partant du raisonne¬ 
ment suivant : dans un fichier 
mélangé, chaque élément est sta¬ 
tistiquement loin de sa place 
finale. Il faut donc faire effectuer 
à chacun de ces éléments de 
grands déplacements en début de 
travail afin de les rapprocher rapi¬ 
dement de cette place. Puis, les 
déplacements deviendront de 
plus en plus petits, jusqu'à ce que 
tout soit classé. 

La méthode de SHELL met ce rai¬ 
sonnement en pratique. Le fichier 
de départ, de 1 à N, est découpé 
en deux parties égales (si N est 
impair, le processus reste le 
même. On prend comme milieu 
INT (N/2)). On obtient deux 
ensembles d'éléments : de 1 à 
N/2 - 1 et de 1 à N/2 + 1. Chaque 
élément du premier ensemble est 
comparé à son homologue du 
deuxième ensemble : le 1 er du 1 er 
ensemble avec le 1 er du 2 e 
ensemble, puis le 2 e du 1 8r 
ensemble avec le 2 e du 2 e ensem¬ 


ble, etc. Bien entendu, les échan¬ 
ges ontlieu si nécessaires. C'est 
ainsi que les éléments du fichier 
font de grands déplacements. 
Lorsque cette phase est finie, on 
constate que les éléments sont 
triés 2 à 2 à une distance d'un 
découpage. 

On redécoupe alors les ensem¬ 
bles précédents en 2. On obtient 
4 ensembles d'éléments. Les 
comparaisons vont recommencer 
avec un écart d'un découpage. 
On parcourt ainsi tout le fichier. 
Mais des éléments de l'ensemble 
4 ont pu remonter dans l'ensem¬ 
ble 3 et sont supérieurs à leurs 
homologues de l'ensemble 2 ! Il 
faut donc refaire un, voire plu¬ 
sieurs passages, jusqu'à ce que, 
pour un découpage donné, il n'y 
ait plus d'échange. On passe 
alors au découpage suivant 
jusqu'à ce qu'il soit égal à 1. Ce 
seront alors les derniers passa¬ 
ges. Que conclure du tri de 
SHELL ? C'est en fait un tri à bul¬ 
les avec des éléments d'abord 
très éloignés l'un de l'autre, puis 
moins, etc. Mais le seul fait des 
grands déplacements le rend 
quand même performant, ce qui 
prouve le bien-fondé de ces 
déplacements ! 

Le tri de SHELL-METZNER est 
une amélioration du tri de SHELL. 
Puisque SHELL s'apparente au tri 
à bulles peu performant, nous 
allons l'apparenter au tri par 
insertion, bien meilleur ! 
SHELL-METZNER commence de 
façon identique à SHELL. La dif¬ 
férence se crée à partir du 
moment où il y a plus de deux 
ensembles d'éléments. Imagi¬ 
nons un fichier découpé en 30 
parties. La distance (le pas) entre 
chaque partie est de 6, par exem¬ 
ple. Un élément du fichier sera 
comparé avec l'élément qui le 
précède de 6 places, puis avec 
celui qui le précède de 12 places, 
etc., jusqu'à ce qu'il trouve sa 
place où il s'insère. En fait, on 
exécute des tris par insertion sur 
les éléments numéros 1, 7, 13, 
19, 25, etc., puis sur les numé¬ 
ros 2, 8, 14, 20, 26, etc. 

Vous constaterez que les perfor¬ 
mances de cette méthode sont 
très bonnes. 


Un problème se pose au sujet des 
deux méthodes précédentes : le 
découpage. Faut-il diviser le 
fichier par deux à chaque décou¬ 
page, ou par 3 ou par 4 ? Il n'y 
a pas de réponse mathématique 
à cette question. Seuls de nom¬ 
breux essais peuvent vous laisser 
entrevoir que la division par 3 est 
satisfaisante. C'est pour cela que 
vous trouverez dans le listing le 
découpage H = INT ((N + 1 )/3). 
Tiens ? Pourquoi (N + 1) ? Pour 
trier, il faut au moins que H soit 
égal à 1. Or, en poussant à l'ab¬ 
surde, si vous voulez trier deux 
nombres avec les méthodes 
SHELL ou SHELL-METZNER, il 
faut bien que l'on ait 
H = INT((2 + 1 )/3) = 1 ! Sinon, H 
serait égal à 0. De même, pour 
d'autres découpages, il faudrait 
faire H = INT((N + 1 ) ou H = INT 
((N+ 3/5), etc. Dans l'équation 
H = INT((2 + x)/y), il faut absolu¬ 
ment que 2 + x =y. 

Nous en arrivons au dernier algo¬ 
rithme de tri proposé dans le pro¬ 
gramme : le tri de HOARE, dit 
aussi ''tri rapide”. Son but est en 
fait de PREPARER le tri pour pas¬ 
ser ensuite le relais au tri par 
insertion. L’explication de ce tri 
est faite à l'aide d'un exemple. 
Imaginez que vous vous trouviez 
dans une cour d'école avec un 
groupe de 200 élèves à trier par 
âge. Vous savez que les âges 
s'échelonnent de 6 à 14 ans. 
Voici comment la méthode de 
HOARE va venir à votre secours. 
Prenez un élève qui a juste 10 ans 
(pour les besoins de l'exemple, il 
a juste juste 10 ans I). Dites aux 
élèves de moins de 10 ans de se 
placer à gauche, et à ceux de plus 
de 10 ans à droite. Vous avez 
obtenu deux groupes, pas forcé¬ 
ment égaux, dont l'un est entiè¬ 
rement inférieur à l'autre. Notez 
toutefois que chaque groupe est 
loin d'être classé ! Prenez le plus 
petit de ces groupes et recom¬ 
mencez l'opération autour d'un 
élève de 8 ans (si le plus petit 
groupe était celui des 6-10 ans). 
Vous avez de nouveau deux 
groupes qui ont la même carac¬ 
téristique que précédemment. 
Continuez ainsi jusqu'à ce que les 
groupes obtenus soient de 10 
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élèves ou moins. N'oubliez pas de 
revenir aux groupes laissés de 
côté ; par exemple les 10-14 ans 
du début. Vous venez de prati¬ 
quer la méthode de HOARE. A 10 
ou moins places près, chaque 
élève est à sa place. Le tri par 
insertion ne fera alors qu'une 
bouchée du travail qui reste à 
effectuer. Remarquez que l'on ne 
pousse pas le tri de HOARE à 
fond. Effectivement, en-dessous 
d'un seuil de 8 éléments par 
groupe, les manipulations devien¬ 
nent très nombreuses et la 
méthode perd tout son avantage. 
Vous pourrez constater que ce tri 
est extrêmement rapide. 

Son efficacité est d'autant plus 
sensible que le fichier à trier est 
grand. Vous allez dire : pourquoi 
finir par insertion alors que 
SHELL-METZNER est plus 
rapide ? Faites l'expérience ; je 
vous laisse la surprise, et essayez 
de comprendre le phénomène... 
Dans le programme, la pile (PL) 
a été dimensionnée à 40. C'est 
dans cette pile que l'on met les 
''adresses'' des groupes dont il 
faudra s'occuper plus tard. En 
fait, elle est surdimensionnée. 
D'après mes calculs (mais sont- 
ils justes ?), on devrait pouvoir 
trier 9000 nombres avec une pile 
dimensionnée à 10 ! Penchez- 
vous sur le problème... Enfin, le 
seuil est, lui aussi, un énigme. 
Faut-il le mettre à 8, à 16, ou à 
toute autre valeur ? Là encore, je 
vous laisse envisager le pro¬ 
blème. 

Après cette présentation des dif¬ 
férents tris, on pourrait se poser 
la question : y a-t-il de bons et de 
mauvais tris ? Je crois qu'il faut 
pousser la réflexion un peu plus 
loin. 

A part quelques exceptions rares, 
petits tableaux presque classés, 
on n'utilisera jamais le tri à bul¬ 
les et le tri par sélection. 
L'insertion sera utilisée pour des 
tableaux de petite à moyenne 
taille de désordre moyen. 

La méthode de SHELL conviendra 
aux tableaux moyens de désordre 
moyen. 

SHELL-METZNER pourra s'occu¬ 
per de tableaux de grande taille 
assez mélangés. 


Quant au tri de HOARE, son 
champ de prédilection sont les 
très grands tableaux très mélan¬ 
gés. 

Mais je vous laisse à vos expé¬ 
riences. Croyez-moi, le pro¬ 
gramme TRIS est loin d'avoir tout 
envisagé... 

LE PROGRAMME BASIC 

Tout d'abord, je vous livre deux 
astuces utilisées dans le pro¬ 
gramme. 

— Comment transformer des 
PRINT et des LIST en LPRINT et 
LLIST sans modifier les ordres 
Basic ? 

Il suffit de faire POKE # 2F1,128. 
En fait, une valeur > 127 sort les 
PRINT et LIST sur imprimante, 
tandis qu'une valeur <128 les 
sort sur écran. 

— Comment faire LIST dans un 
programme sans l'interrompre 
(sortie par READY) ? 

Il faut que le bit 7 de # 2F2 soit 
à 1. D'où la ligne n° 9220 dans 
le programme TRIS. 

Le sous-programme ''Initialisa¬ 
tions'' implante une routine de 
PRINT AT en #400. Elle est bien 
sûr différente suivant que l'on se- 
trouve sur ORIC 1 ou sur 
ATMOS. Attention si vous vou¬ 
lez vous en servir par ailleurs ; elle 
n'est pas protégée contre des 
numéros de colonne ou de ligne 
sortant de l'écran ! 

Le programme est construit 
autour d'un menu principal qui 
fait appel à des sous- 
programmes, pouvant eux- 
mêmes contenir des sous-menus, 
etc. 

Le sous-programme "Remar¬ 
ques” n'en appelle aucun. 
"Algorithmes" doit être recopié 
avec soin pour des besoins de 
présentation écran. Attention aux 
espaces. 

Le sous-programme "Tris” véri¬ 
fie que vous ne voulez pas clas¬ 
ser moins de deux nombres ou 
plus de 4000. Dans le cas de 
nombres générés par l'ordinateur, 
il initialise le RND à la ligne 2530 
afin d'avoir toujours la même liste 
de nombres. Vous pouvez bien 
sûr modifier ou supprimer cette 
initialisation. Pendant le tri pro¬ 


prement dit, la surveillance cla¬ 
vier est inhibée. Elle est restau¬ 
rée à la fin du tri (CALL Ml et 
CALL M2 avec Ml = #E76A et 
M2 = # E93D pour ATMOS, 
M1 = # E6CA et M2=#E804 
pour ORIC 1 ). Ceci afin de gagner 
du temps. Evidemment, si vous 
voulez stopper un tri, il ne vous 
reste que le bouton RESET... 

Le sous-programme "Listes" uti¬ 
lise les astuces imprimante-écran. 
Le LPRINT CHR$(17) de la ligne 
3050 force la MCP 40 à remet¬ 
tre son stylo en position de repos. 
Je n'ai pas pu tester le pro¬ 
gramme sur une autre impri¬ 
mante. Peut-être, cette ligne est- 
elle à adapter ? 

"Consultation tableau A(1 à N)" 
surveille le scrolling ; pas plus de 
120 nombres affichés à la fois. 
Le sous-programme "Démonstra¬ 
tion" est le gros morceau ! Il 
comporte lui-même beaucoup de 
sous-programmes de commentai¬ 
res appelés au fur et à mesure 
des besoins. Les déplacements 
des nombres se font comme pour 
des "sprites". Le déplacement 
est-ouest est en 6100-6140 et 
nord-sud en 6150-6180. 

Mais, pour en arriver là, il faut ini¬ 
tialiser des variables pour savoir 
si l'on va vers le bas ou vers le 
haut, vers la gauche ou vers la 
droite. C'est la variable ES. Le 
tableau T (3, 1 ) contient le nom¬ 
bre que l'on déplace, ce qu'il va 
rencontrer au déplacement sui¬ 
vant et l'adresse écran où il se 
trouve, puis où il doit aller. 

Si tout cela est assez fastidieux 
à mettre en œuvre en Basic, il est 
plus simple de l'expliquer. Le 
nombre à déplacer (le sprite) ne 
se déplace qu'après avoir mis de 
côté les codes ASCII des cases 
qu'il va occuper. Puis, lorsqu'il 
s'en va, il restitue ces codes 
ASCII dans leurs cases. On a 
ainsi l'impression qu'il est passé 
"dessus". Vous remarquerez les 
lignes 7420 et 7470. Des POP et 
des PULL : quelle horreur ! Eh 
bien, non ! 

Si vous laissez le programme se 
dérouler, il n'utilisera jamais ces 
lignes. Mais si vous l'interrompez 
pendant une démonstration, il 
peut se trouver à des profondeurs 
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de sous-programmes ou de 
REPEAT-UNTIL différentes. Il faut 
alors revenir DIRECTEMENT au 
menu (c'est votre souhait) et la 
seule solution, c'est l'utilisation 
des POP et des PULL... Vous en 
trouverez quand même un qui est 
critiquable dans le tri de SHELL- 
METZNER : le PULL de la ligne 
8740 II y a différentes façons 
d'écrire ce tri : c'est la plus rapide 
que j'ai trouvée. Peut-être peut- 
on faire mieux sans PULL ! 

Pour conclure, je demanderai à 
ceux qui auront la patience de 
trier 2000 nombres avec les tris 
à bulles, par sélection et insertion 
de communiquer leurs temps à 
THEORIC qui pourra, par un 
entrefilet, faire connaître à tous 
les trois résultats manquants du 
tableau. 

Note : Le programme a été renu¬ 
méroté de 10 en 10. Utilisez 
donc votre utilitaire de numéro¬ 
tation automatique pour le frap¬ 
per. 
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UTILITAIRES 


TRI EN LANGAGE MACHINE 


D ans le traitement de fichiers, 
l'une des opérations les plus 
importantes est le tri, c'est-à-dire 
le rangement dans l'ordre crois¬ 
sant (ou décroissant) des élé¬ 
ments d'un tableau. Il existe pour 
cela de nombreuses méthodes, 
appelées algorithmes. Les métho¬ 
des les plus simples sont lentes 
et inversement. Nous proposons 
d'exploiter l'une d'entre elles en 
langage machine ; cet algorithme, 
appelé "TRI A BULLE" demande, 
en Basic, 2 heures 30 minutes 
pour 1000 nombres, et seule¬ 
ment 1 minute en langage 
machine. 

PRINCIPE 
DU TRI A BULLE 

Considérons une liste de N nom¬ 
bres que l'on veut ranger dans 
l'ordre croissant. Partant du pre¬ 
mier élément, nous le comparons 
à tous les autres et nous réalisons 
un échange chaque fois que l'on 
en trouve un plus grand. A la fin 
de l'opération, le plus grand de 
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tous les éléments est en tête. 
Partant du second élément, nous 
le comparons à tous les suivants 
et réalisons l'échange dès qu'un 
plus grand est trouvé. A la fin de 
cette opération, le plus grand élé¬ 
ment de la liste restante est en 
deuxième position. Ainsi de suite 
jusqu'au dernier élément. 

Le programme en Basic pourrait 
être le suivant : 

10 FOR 1 = 1 TO N - 1 
20 FOR J = I + 1 TO N 
30 IF A(l)> = A(J) THEN GOTO 
50 

40 X = A(I):A(I)=A(J):A(J) = X 
50 NEXT J 
60 NEXT I 
70 END 


REALISATION 
EN LANGAGE MACHINE 

Nous allons considérer une 
matrice A% (N - 1 ) contenant N 
entiers, dont de valeur comprise 
entre 0 et 65535. Rappelons que 
l'adresse où débute le stockage 
de cette matrice est en #9E, 


# 9F. On trouve successivement, 
à partir de cette adresse : 

— le nom de la matrice (A), 

— son type (%), 

— l'octet bas et l'octet haut à 
rajouter à # 9E, # 9F pour trouver 
le premier élément de A%, 

— le nombre d'indices de la 
matrice, 

— la dimension de la matrice. 
Cette dernière quantité sera stoc¬ 
kée dans les mémoires #00, 
#01 (valeurs de 1 = 0,... N-2). 
Une seconde mémoire # 02, # 03 
contiendra le paramètre de la 
boucle interne (J = I + 1,.., N - 1 ). 
#05, #05 contient la même 
chose que #A0, #A1, c'est-à- 
dire l'adresse de la fin de zone de 
stockage des variables. Les nom¬ 
bres à traiter étant codés sur 
deux octets, les comparer 
consiste à comparer en premier 
les octets hauts et, en cas d'éga¬ 
lité, à comparer les octets bas. Il 
y a échange (par l'intermédiaire 
de la pile) lorsque c'est néces¬ 
saire. 
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$3000 

A59E 

LDA 

$9E 

$3002 

18 

CLC 


$3003 

6905 

ADC 

#$05 

$3005 

8500 

STA 

$00 

$3007 

A59F 

LDA 

$9F 

$3009 

6900 

ADC 

#$00 

$300B 

8501 

STA 

$01 

$300D 

AOOO 

LD Y 

#$00 

$300F 

B100 

LDA 

($00)? Y 

$3011 

8506 

STA 

$06 

$3013 

E606 

INC 

$06 

$3015 

C8 

INY 


$3016 

B100 

LDA 

($00),Y 

$3018 

AA 

TAX 


$3019 

CA 

DEX 


$301A 

D005 

BNE 

$3021 

$301C 

C606 

DEC 

$06 

$301E 

DOO1 

BNE 

$3021 

$3020 

60 

RTS 


$3021 

A500 

LDA 

$00 

$3023 

13 

CLC 



Adresse du début deA%(N-1| + 5 = valeur 
de N stockée en #00, #01. 


OB OH 

X 06 nombre de boucles 


A-t-on dépasse N - 1 ? 
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Initialisation premier compteur : 01, 00 
adresse - A%(l):l =0.1,2.N-2 










*3024 

*3026 

*3023 

*302A 

*3020 

*3U2'E 

*3030*" 

*3031 

*3033 

*3035 

*3037 

*303? 

*303B 

*3030 

*303F 

*3041 

* 3 O 4 3 

*3045 

*3047 

*3048 

*304A 

*3040 

*3040 

*304F 

*3050 

*3053 

*3054 

*3056 

*3053 

*305A 

*3050 

*305E 

*305F 

*3061 

*3063 

*3064 

$3066 


Desass 


*3063 
*3069 
*3060 
*3060 
*306F 
*3071 
*3073 
*3075 
*3077 
*3079 
*3070 
*3070 
*307F 
OK . . . 


6902 

ADO 

#*02 

8500 

STA 

*00 

A 501 

LDA 

*01 

6900 

ADO 

#*00 

8501 

STA 

*01 

A500 

LDA 

*00 

13 

CLC 


6902 

ADO 

#*02 

3502 

STA 

*02 

A501 

LDA 

*01 

6900 

ADC 

#*00 

8503 

STA 

*03 

AOOO 

LDY 

#*00 

B102 

LDA 

(*02)? Y 

DI 00 

CMP 

(*00)=. Y 

9023 . 

BCC 

*3066 

FOOE 

BEQ 

*3053 

B100 

LDA 

<*00> f Y 

48 

PHA 


B102 

LDA 

(*02),Y 

9100 

STA 

(*00)V Y 

68 

F'LA 


9102 

STA 

(*02)? Y 

C8 

INY 


4C5C30 

JMP 

*305C 

CS 

INY 


B102 

LDA 

( *02) y'Y 

DI 00 

CMP 

(*00),Y 

9000 

BCC 

*3066 

F 00 A 

BEQ 

*3066 

B100 

LDA 

<*00) y Y 

48 

PHA 


B102 

LDA 

(*02)? Y 

9100 

STA 

(*00),Y 

68 

F'LA 


9102 

STA 

(*02) y Y 

A502 

LDA 

*02 


Initialisation deuxième compteur : 03, 02 
adresse — A%(J):J = I + 1,... , N-1 


Octet haut (A% (I)) > octet haut A % (J) ? 


Les deux octets sont égaux 


Echange octets hauts 


Octet bas A%(l)>octet bas A%(J) 


Echange octets bas 
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18 

CLC 


6902 

ADC 

#*02 

3502 

STA 

*02 

A503 

LDA 

*03 

6900 

ADC 

#*00 

8503 

STA 

*03 

A503 

LDA 

*03 

C505 

CMP 

*05 

90C2 

BCC 

*303B 

A502 

LDA 

*02 

C504 

CMP 

*04 

90BC 

BCC 

*303B 

F098 

BEQ 

*301? 



Incrémentation du second compteur 


Fin du tableau A%(N - 1 ) ? 


Fin d'une boucle. 
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MUSIQUE MAESTRO 


U n des talents cachés de 
l'ORIC est souvent sous- 
exploité : ses possibilités sonores 
font de lui un musicien qui ne 
demande qu'à lire vos mélodies. 
Qu'attendez-vous pour le satis¬ 
faire ? En attendant, voici quel¬ 
ques astuces dévoilées par un 
spécialiste des synthétiseurs. 

LA MUSIQUE, 

REND-T-ELLE OEUF-ORIC ? 

Depuis quelques mois, la littéra¬ 
ture pour ORIC s'est beaucoup 
développée avec des ouvrages 
très sérieux comme ''Le Manuel 
de Référence" d'André CHE- 
NIERE. Tous ces livres remarqua¬ 
bles ont malheureusement un 
point commun : ils passent sous 
silence les possibilités musicales 
de votre ordinateur. Sans doute 
est-ce par manque d'information 
technique ou, plus simplement, 
parce que les notions de solfège 
des auteurs de livres traitant d'in¬ 
formatique remontent à des épo¬ 
ques éffroyablement éloignées. 
Quoi qu'il en soit, THEORIC avait 
déjà remarqué votre attrait pour 
la musique et votre désir évident 
de trouver un guide pour défri¬ 
cher avec vous la jungle musicale 
qui entoure votre générateur 
sonore 8912. Voilà, maintenant 
c'est chose faite. 

LA QUALITE DU SON 

Le son prduit par le 8912 et un 
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signal rectangulaire parfait, c'est- 
à-dire un signal périodique cons¬ 
titué d'une fréquence fondamen¬ 
tale et de fréquences plus élevées 
appelées harmoniques. La fonda¬ 
mentale est la fréquence la plus 
grave de chaque son produit par 
votre générateur et les harmoni¬ 
ques en sont des multiples. Fon¬ 
damentale plus harmoniques 
déterminent ensemble le timbre 
et permettent, par exemple, de 
différencier deux instruments 
jouant la même note. Dans le cas 
de l'ORIC et de beaucoup d'au¬ 
tres ordinateurs, le signal sonore 
étant élaboré sous la forme d'un 
signal électrique rectangulaire, 
contient une fondamentale et 
beaucoup d'harmoniques impai¬ 
res. Musicalement, on ne peut 
pas trouver plus laid. Que faire 
alors ? Rassurez-vous, les solu¬ 
tions sont nombreuses, à 
commencer par un simple filtrage 
qui, en éliminant des aigus, atte- 
r^éra les harmoniques indésira¬ 
bles. 

La solution que nous vous propo¬ 
sons aujourd'hui est plus élé¬ 
gante. Partant du principe que 
vous n'utilisez généralement 
dans vos jeux que des mélodies 
monodiques (une seule note à la 
fois), nous allons employer simul¬ 
tanément deux des trois canaux 
du 8912 pour donner au son le 
timbre de notre choix. Pour vous 
donner un avant-goût de ce que 
l'on peut faire, essayez le court 
programme suivant : 


f *s 



10 MUSIC 1,3,1,10 
30 PLAY 3,0,0,0 
40 WAIT 300 
50 PLAY 0,0,0,0 
Le son produit est tout-à-fait typi¬ 
que des micro-ordinateurs. Main¬ 
tenant, ajoutez à ce programme 
la ligne suivante : 

20 SOUND 2,240,7 et faites 
RUN. 

Ce son céleste est un D03. L'ef¬ 
fet agréable de son timbre est 
obtenu err faisant fonctionner 
deux canaux à une fréquence 
légèrement différente l'un par 
rapport à l'autre. La différence de 
fréquence produit un léger batte¬ 
ment responsable de ce timbre 
musette si cher aux accordéonis¬ 
tes. 

Avec l'instruction MUàlC, la hau¬ 
teur des sons est prédéterminée 
de façon à produire les notes de 
la gamme chromatique tempérée. 
Produire un son en dehors de ces 
valeurs est impossible avec 
MUSIC. L'instruction SOUND, 
par contre, permet de donner aux 
sons la fréquence que l'on sou¬ 
haite, que les notes produites 
appartiennent à la gamme tempé¬ 
rée ou non. C'est la raison pour 
laquelle cette instruction sera 
souvent utilisée. Pour écrire une 
mélodie avec le timbre céleste de 
tout à l'heure, il suffit de l'écrire 
au moyen de SOUND 1, p,v et 
SOUND2,p',v. Le timbre du son 
ne dépendra alors que de l'écart 
de fréquence entre les deux 
canaux. Un écart de 2/3 donnant. 
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par exemple, un timbre de haut¬ 
bois. 

Comment faire ? Pas sorcier ; 
THEORIC à pris la peine de cal¬ 
culer pour vous une table d'équi¬ 
valence entre les instructions 
MUSIC et SOUND. Ainsi, 
MUSIC1,3,1,10 est équivalent à 
SOUND1,238,10. Dans le court 
programme de tout à l'heure, la 
valeur 240 attribuée à SOUND,' 
très légèrement supérieure à la 
valeur du tableau, produit le bat¬ 
tement de fréquence appelé effet 
céleste. 

Si votre mélodie est déjà écrite 
avec des instructions MUSIC, il 
suffit de chercher, dans le 
tableau, l'équivalent des notes, 
avec SOUND1,p,v pour le pre¬ 
mier canal. Le paramètre p (de 
l'anglais Pitch = hauteur) rem¬ 
place à la fois le paramètre o 
(octave) et n (note) de l'instruc¬ 
tion SOUND. 

Ensuite, on insère dans le pro¬ 
gramme, à la suite de SOUND 1, 
p,v, la ligne SOUND2,p',v. Le 


mètre p' est en fait une expres¬ 
sion calculée par l'ordinateur à 
partir de p. 

Voici, par exemple, comment 
écrire la gamme avec le timbre 
''céleste''. 

10 FOR 1 = 1 TO 8 : READ P 
20 SOUND1 ,P,10 : SOUND2.P' 
* 1 . 01,10 

30 PLAY3,0,0,0 : WAIT 30 : 
NEXT 

40 DATA 238,212,189,178, 
159,142,126,119 
Si on désire un timbre encore plus 
riche, on peut utiliser le troisième 
générateur en ajoutant la ligne 
suivante : 

25 SOUND3,P*1.02,10 
et en remplaçant PLAY3,0,0,0 
par PLAY7,0,0,0 à la ligne 30. 
Le timbre de hautbois est obtenu 
en donnant au rapport p/p' la 
valeur 2/3. En faisant cela, on fait 
sonner le deuxième canal du 
8912 à la quinte du premier. Le 
programme doit s'écrire alors : 
20 SOUND1 ,p,v : SOUND2,p* 
3/2,v 


De nombreuses variétés de haut¬ 
bois sont possibles en dosant les 
volumes respectifs des deux 
canaux. On peut également pro¬ 
duire un hautbois musette en 
donnant à p' la valeur (2/3) *1.01 
avec le troisième canal. 

D'aqtres timbres originaux peu¬ 
vent être produits avec des rap¬ 
ports p/p' différents : 
p/p' = 4/5 : les générateurs jouent 
à la tierce majeure, 
p/p'= 5/6 : tierce mineure. 

Ces deux timbres correspondent 
à des sons très artificiels, des 
synthétiseurs par exemple. 

Un rapport de 7/8 produit un tim¬ 
bre très dissonnant qui convien¬ 
dra à de nombreux jeux, tandis 
qu'un rapport de 2 à la puissance 
1/2 produit un son assez drama¬ 
tique (faites SOUND2,p*(2*0.5), 
v) . 

Pour finir, voici quelques exem¬ 
ples qui devraient vous inciter à 
composer des airs pour votre 
compagnon de jeu préféré. 


TABLEAU D'EQUIVALENCES MUSIC/SOUND 


NOTE 

MUSIC 

SOUND 

NOTE 

MUSIC 

SOUND 

NOTE 

MUSIC 


o 

H 

p 


o 

n 

p 


o 

ri 

DO 

î 

1 

955 

FR 

•“i 

6 

357 

LR# 

3 

11 

DO# 

î 

2 

901 

FR# 

o 

7 

337 

SI 

3 

12 

RE 

î 

3 

851 

SOL 

2 

8 

318 

DO 

4 

1 

RE# 

i 

4 

803 

SOL# 

2 

9 

300 

DO# 

4 

2 

MI 

î 

5 

758 

LR 

r, 

10 

284 

RE 

4 

3 

FR 

î 

6 

675 

LR# 

2 

11 

268 

RE# 

4 

4 

FR# 

î 

1 

675 

SI 

2 

12 

253 

MI 

4 

5 

SOL 

î 

y 

637 

DO 

3 

1 

238 

FR 

4 

6 

SOL# 

î 

9 

681 

DO# 

3 

v 

•_ 

225 

FR# 

4 

7 

LR 

î 

10 

568 

RE 

3 

3 

212 

SOL 

4 

8 

LR# 

î 

11 

536 

RE# 

3 

4 

200 

SOL# 

4 

9 

SI 

î 

12 

506 

MI 

c*. 

■jj 

5 

189 

LR 

4 

10 

DO 

2 

1 

477 

FR 

3 

y 

178 

LH# 

4 

11 

DO# 

2 

2 

450 

FR# 

3 

—i 

<' 

168 

SI 

4 

12 

RE 

{— 


425 

SOL 

3 

y 

159 

DO 

5 

1 

RE# 

Cm. 

4 

401 

SOL# 

3 

9 

150 




MI 

2 

5 

379 

LR 

3 

10 

142 





SOUND 


1 

1 

1 

1 

1 


Vous pourrez constater que la 
série est en progression géomé¬ 
trique avec une raison sensible¬ 
ment égale à racine douzième de 
deux, ce qui explique pourquoi la 
gamme obtenue avec MUSIC 


n'est pas parfaitement juste, sur¬ 
tout dans les octaves aigues. 

Nous publierons bientôt une table 
permettant de jouer avec justesse 
la gamme tempérée (façon de 


parler puisque cette gamme, par 
définition, n'est déjà pas juste) ; 
mais en attendant, vous pouvez 
bien sûr vous amuser à la calcu¬ 
ler. 
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RCCÜRDéON 


10 PLRY3,0,0,0* FOR 1=0 TO 12 
20 RERD N,W 

■30 SOUND 1, N, 10 * S0UND2, N* 1.01,8 
40 WHI T W*7 • NEXT : PLRY0,0,0,0 

50 DRTR139,8,178,4,159,8,142,4,159,8,178,4,189,12,238,4,212,4,238,4 
60 DHTH284,3,238,4,318,16 


CORNEMUSE 

100 PLHY7,0,0,0 

110 FOR 1=0 TO 22 : RERDN,W 

120 SOUND1,N,10 = S0UND2,N*1.02,10:S0UND3,140,7 
130 WHI TW*10 :NEXT = PL8Y0,0,0,0 

140 DHTH142,7,126,1,112,2,142,2,112,2,94,2,71,7,75,1,71,2,94,2,112,2,142,2 
150 DHTH106,4,84,3,106,1,112,2,94,2,112,2, 142,2, 126,4,112,3,126,1,142,12 
HHUTBOIS 


200 PLHY3,0,0,0 

210 FOR 1=0 TO 22 ; RERDN,W 

220 SOUND1,N,8 «S0UND2,N*2/3,7 

230 WHITW*12 = NEXT = PLHY0,0,0,0 

240 DHTH189,4,142,10,126,2,119,2,106,2,94,2,89,4,94,2,106,2,94,2,89,2,94,6 
250 DRT R126,2,106,4,94,2,10b,2,119,4, 142,2,126,2,119,4,126,2,142,2,126,12 


ÉCHO 



Q uand ORIC devient l'initiateur 
musical, cela donne le pro¬ 
gramme ECHO. Pour révéler 
d'éventuels talents cachés, 
ECHO génère une note (ou une 
suite de notes) que l'élève devra 
répéter. Elles seront, selon votre 


choix, représentées ou non sur la 
portée. 

Quelques adaptations pourront 
être faites à ce programme pour 
le mettre au goût de chacun (plus 
de notes, parties plus longues, 
etc.). 


Conçu à l’origine pour ORIC-1, 
nous vous suggérons quelques 
adaptations pour faire tourner 
ECHO sur ATMOS. 

Ouvrez grand vos oreilles ! 


I ROI --HATER I EL OR ICI.. 

3 ROI-ECHO-ECRIT PAR Y. SEGUIER-- 

6 RCfl-PftOGNAHM. PRINCIPAL- 

I» CL5 
20 Z-0 

30 PRIHT CKR• < 6 I REH CLAVIER HUET 
33 PR INT CMR»<171 REH ENLEVE CURSEUR 


3* FOR l»0 T03 POKE»BBA4*l.32 NEXTI REH EFFACE CAPS 

«0 OIN CL» < 40 >,0< 40i.Ni 40I.Al< 40I.GRY< 40 >.NO* < 40).PE»(10 >.SCI 10) 

43 OIN K< 40> 

47 REH.CREATION DICO NOTES- 

30 

60 DATA 0.3.1.13.00 
63 DATA V.3.3.14.RE 
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70 DATA E.3.3.13.AI 
73 DATA R.3.6.12.FA 
80 DATA T.3.0.1I.SOL 
83 DATA Y.3.10.>0.LA 
90 DATA U.3.12.9.SI 
93 DATA I.4.I.8.DO 
160 

200 FOR P-l TO 8 
210 READ X» 

220 READ OT.NT.GT.Y* 

230 CL*<Pl-X* 0<P>*0T NiP>*NT GRYCP>*GT NO*(P»*Y» 

240 NEXT P 

241 COSUB (3000 TITRE 

242 COSUB 33000 'MUSIQUE 

243 PLOT 3.10.-PATIENTE UN PEU' 

244 COSUB 48000 COSUB 3(000 'REDEF CAR 

243 COSUB 20000 COSUB 23000'PRESENTAT ION ET INITIALISATION 

246 IF PP>NB THEN PP-t NC*NC«I 

247 IF NC>NP THEN COSUB !0400:GOTO 243 AFF1CHACE SCORE 

248 COSUB 20400 IF NC*I THEN COSUB 20(90 ELSE GOTO 300’REGLES DU JEU 

249 IF DI*“N* THEN GOTO 300 
230 REPEAT 

233 X*-KEY*!F X***'THEN 253 
260 FOR OC-I TO B 
263 IF CL* (OC) <>X*THEN 280 
270 NUSIC 1.0(00.N(OCI.10 
273 PLAY (.0.0.0 

276 NAIT 30 

277 PLAY 0.0.0.0 
280 NEXT OC 

283 UNTIL ASC t X•)•77 

293 COSUB 30000 SUITE REGLES DU JEU 

300 REH-CHOIX DES NOTES PAR LA HACHINE- 

301 CLS:PAPERO I NK2 

302 PRINT PRINT INPUT 'NIVEAU DE JEU DE I AS * NI* 

303 IFVALINI 11<I OR VALINI*>>8 THEN PRINT'FAIS ATTENTION' GOTO 302 

304 NI*VAL < NI•> 

306 PRINT PRINT:INPUT'DESSIN <0/N>:’ A* 

307 IF A*-*0' THEN CL-0 ELSE IF A*-'N' THEN CL-1 ELSE PR INT'ATTENTION':GOT0306 
3(0 :COSUB 600 INTERPRETATION NOTE 

383 A*<l>*CL*<Sl 

398 FOR G*IT024 PRINT:NEXT:PLOTO.24.CHR*(0> 

399 PRINT'TAPE LE* NOTE» QUE TU A» ENTENDUES 

400 FOR J»! TO NI 

4(0 :lTf I J i»KEY* : IF B*fJ1•*"THEN 4 10 : REH-1 abl aau nota» antraa» i ur e1»v(#F-— 
420 :COSUB 3000 RECHERCHE NOTE JOUEE 
430 'IF P*12 THEN GOTO 4(0 

440 :NUSIC I.3.N(P).I0 440 NUSIC 1.O(P).N(P).10 

443 PLAY 1.0.0.0 : VA IT 30 
430 : PLAY 0.0.0.0 
433 :NEXT J 

300 ER*0 REH-coapar aiton nota a 1aaloira at nota C1 • v iar---- --------- 

310 FOR K>( TO NI 

320 :1F MIKIOBIIKI THEN ER*ER*1 

330 NEXT K 

333 IF ER*0THENGOSUB37000H*0PP*PP*l GOTO 246 GAGNE 

340 IF H-2THENER-0 H-3 COSUB 36000 PP-PP*I G0T0246 3 FOIS PERDU 

343 IF H<2THENH-H*1 ER-0 GOSUB33000:GOTO 3(8 PERDU 

330 REH -FIN PROC PRINCIPAL- 

600 REH !» INTERPRETAT ION DES NOTES ** 

618 :IFCCL*0»OR<H*31 THEN COSUB 40000 DESSIN PORTEE 

620 FOR I • 1 TO NI: IF HOOTHEN COTO 630 

640 S*INT < RND<1>i10l•1 : IF S> 7THEN 640 

643 K<l>*S 

630 S-K(I> 

660 NUSIC 1.0(8),N«S>.10 

663 IF«CL*0*0R <H-3> THEN COSUB 43000 DESSIN NOTE 
670 PLAY (.0.0.0 
673 NAIT 30 

680 PLAY OiO.0.0:NAIT 100 
683 A* i I l*CLKSI 
690 NEXT I 
693 RETURN 

2243 PRINT“PATIENTE UN PEU' 

3000 REH-racharcha nota jOuaa »ur clavitr-——————————— 

30(0 P*0 

5020 IF B*»Jl*CL*lP> THEN RETURN 
3030 P*P*I * 

3040 IF PO 12 THEN COTO 3020 
3030 RETURN 

10400 REN !» TABLEAU DES SCORES t* 

10403 TEXT CLS PAPERO INK2 

10410 FOR Y* I T02 : PLOT O.Y.CHRKI» PLOT 3. Y. CHR* « 14 > PLOT 20. Y .'SCORE' NEXT 
10420 PLOT 20.3.“■■••■* 

10423 1F NB*I THEN COTO 10460 
10423 1*1 : J*2 

10433 IF J NB THEN 1-1*1:J-!*1 

10440 IF I>NB-I THEN COTO 10460 - 

10443 CS-SCll» 

10430 1F SC<J*>CS THEN SCI I)*SC(J I : SCI J »-CS P*-PE*(I » PE*<Il*PE»lJ I : PE*cJ »«P* 

10433 J-J*l COTO 10433 

10460 PLOT 0.6.CHR* I 3I 

10462 FOR 1*1 TO 3:PRINT NEXT 

10464 FOR 1-1 TO NB 

10466 PRINT!:' *:PE*H> “ * 'SCI I> :PRINT 

10468 NEXT 

10470 WAIT 300*70»NB 

10300 PLOT 3.23.'VEUX TU RE JOUER*» <0/N > - 
10310 CET U* IF U** *'THEN 10310 
10320 IF U*•*0'THEN RETURN 

10330 REH--TABLEAU FIN DE JEU- 

10340 CLS:PAPER3 :INK4 IN-4 
10330 FOR l-l T026 PLOT I.I.CHR*<10> NEXT 
10360 FOR 1-10 TO 10 PLOT I.I.CHR»(I4) NEXT 
10370 INK IN 

10380 FOR J*3 TO 21 STEP 10 
10390 FOR 1*2 TO 36 STEP 2 
10600 PLOT!.J."ad*: PLOT I.J*I.* ad* 

10610 PLOT!.J*2.'ba' PLOTI.JO.'ba" 

10620 PLOT!.J*4.*cf":PLOTI.1*3.“cl" 

10630 NEXT NEXT 

10633 PLOT 14.13.‘AU REVOIR': PLOT 14.16.'AU REVOIR* 

10640 WA ! T 200 

10630 IN*IN*I : IF 1N-6 THEN IN-0 
10660 IF IN-2 THEN IN-4 
10670 COTO 10370 

13000 REN-Ti Ira- 

13rf03 CLS:LORESO: 1NKl 
13010 XO-3YO-6 
13017 N*-'ECHO' 

13020 FOR HH*1 TO LENI N*» 

13030 C*-HID*IN*.HH.I> 

13040 C-ASCIC*> A-46080 D-C*8 

13030 FOR NN*0 T07 

13060 Z2(NN)-PEEK(A*D*NN) 

13070 NEXT 
13080 COSUB 13200 
13090 NEXT 

13093 PLOT 8,22.YVES SECUIER 1904 a** 

13100 RETURN 

13200 FOR NN-0 T07 

13210 FOR NH-7 TOO STEP -I 

13220 OO*INT(221NN >/2 >:R-Z2«NN>-«00*2» 


13230 Z2INN1-OQ 

13240 IF R-0 THEN XX-16 ELSE XX-I7*RNDlI)«4 
13230 PLOT IHH-I»«7*HH*XO.YO*NN.XX 
13260 NEXT NEXT 
13270 RETURN 

20000 REH-praianlal ion-- 

20040 CLS PAPER 4 
20030 : 

20033 ! 

20063 W-0 BB*1 

20100 COSUB 40000 

20120 FOR P-l TO 0 

20130 HUSIC 1.0(P>.N(P>.10 

20140 PLAY 1.0.0.0 WAIT 30 

20130 PLAY 0.0.0.0 

20133 PLOT O.CRYIPI.CHR»(BB> 

20160 PLOT W.CRYIP».*,* 

20170 W*W*3 BB-BBM IF BB'7THEN BB-1 

20180 NEXT P 

20186 : VAIT200 RETURN 

20190 REH !» DDE REGLES DU JEU t* 

20202 TEXT PAPERO 1NKI 

20203 FOR Y"l T09 PRINT NEXT 

20210 PRINT 'VEUX TU LES RECLES DU JEU'MO/Nl* 

20220 CET D*: !F D*-““THEN 20220 

20230 1F D*a*0*THEN 20243 

20240 IF D***N* THEN RETURN 

20243 IF D* <> *0“OR D*<>“N* THEN COTO 20210 

20243 CLS PAPERO:INK2 

70246 PLOT 10.0.**!» »»»*•»•t«!!I - 

20247 PLOT 10.I.* !RECLES DU JEU*' 

20240 PLOT 10.7.*!»***!!»*•****•” 

70230 PRINT PRINT PRINT PRINT PRINT PRINT'TU VAS UTILISER LE CLAVIER “ 

20232 PRINT : PRINT * COHHE UN PIANO.EN JOUANT' 

20260 PRINT PRINT'SUR LES TOUCHES Q.V.E.R.T.Y.U.I" 

20270 PRINT PRINT'CHAQUE TOUCHE TE DONNE UNE NOTE * PRINT PRINT 

20271 FOR C*I4 T023 PLOT O.C.CHR»ll> NEXT 

20272 PRINT'Q-OO* PR1NT'W-RE' PR!NT'E-Hi' PR!NT'R*FA“ 

20276 PRINT'T-SOL“ PRINT'Y*LA“ PRINT'U*SI“:PR1NT'I*DO" 

20200 PRINT PRINT PRINT'ENTRAINE TO!.PUIS APPUIE SUR H POUR* 

20283 PRINT'CONTINUER LE JEU* 

20290 RETURN 

20399 REN »» A QU! LE TOUR «• 

20400 FOR G*1 T09:PRINT NEXT 
20410 TEXT CL» PAPERO:INKl 

20413 PRINT*C * EST A *:PE*IPP1:* DE JOUER" 

20420 PRINT:PRINT'PARTIE NO * NC PRINT 

20423 WAIT 300 RETURN 

23000 REN 111N! T1ALISAT!ON JEU t* 

23010 TEXT:CLS PAPERO I NK I IN*I 

23020 FOR !•1 T026: IN-IN*1 IF 1N-3 THEN IN-1 

23023 PLOT 0.I.CHR*iIN) NEXT 

23030 PRINT PRINT:INPUT 'NOMBRE DE JOUEURS (9 AU HAX1HUH) NB* 

23033 IF VAL < NB*I<I OR VAL<NB*>>9 THEN PRINT'FAIS ATTENTION' COTO 23030 
23036 NB*VAL 1 NB*1 
23040 PRINT PRINT 
23030 FOR 1*1 TO NB 

25060 PRI NT *NOM OU JOUEUR NO ' I INPUT A* PRINT 
23070 PE*U1-A* 

23080 NEXT 

23090 PRINT INPUT 'NOMBRE DE PARTIES <9 AU HAXIHUHi.' NP* 

23092 IF VALINP*1<1 OR VALINP*» 9 THEN PRINT'FAIS ATTENTION' COTO 23090 
23094 NP-VALINP*» 

23099 PP-l NC*I 

23100 FOR 1*1 TO NB SCII »*0 NEXT 
23110 RETURN 

29999 REH--SU!TE RECES DU JEU- 

30000 CLS:PRINT PRINT* TU ECOUTES LES NOTES JOUEES PAR LA MACHINE" 

30001 FOR !*6T09 PLOTO.!.CHR*<1• NEXT F0RI-I6 TOI 7 PLOTO.I.CHR*(1 i NEXT 
30003 PRINT:PRINT'NIVEAU l.UNE NOTE NIVEAU 2.2NOTES ETC...' 

30007 PRINT'TU PEUX JOUER AVEC OU SANS LE DESSIN' PRINT'DE LA PORTEE.* 

30008 PRINT‘SANS LE DESSIN.TU MARQUES 2 FOIS PLUS* 

30009 PRINT'OE POINTS.HAIS C'EST PLUS DIFFICILE.* 

30010 PRINT: PR1NT'ENSUI TE.TU ESSAIES DE REJOUER CES NOTES SUR LE CLAVIER' 
30020 PRINT PRINT'TU AS DROIT A TROIS ESSAIS* 

30022 PRINT PRINT'QUAND L'ORDINATEUR N OBEIT PAS" 

30024 PR INT'APPUIE SUR LA TOUCHE RETURN' PRINT 

30030 PRINT PRINT'POUR CONTINUER.APPUIE SUR UNE TOUCHE* 

30040 CET E* 1F E * * *'THEN 30040 
30030 CLS RETURN 

33000 REH --MUSIQUE TITRE- 

33002 FOR 1*1 TO 34 
33005 REAO N.O.W 
33000 HUSIC l.O.N.O 
33011 PLAY 1.0.7.10 
33013 WAIT W:NEXT 
33026 PLAY 0.0.0.0 
33140 CLS PAPERO RETURN 

33130 DATA 0I.04.30.I0.3.30.3.4.30.I.4.30.6.4.50 

33I60 DATA 3.4.30.10.4.30.0.4.30.11.3.30.10.3.30.6.4.30.8.4.30,6.4.23.3.4.25 
33170 DATA 6.4.30.1.4.30.6.3.30.0.3.23.6.3.23.3.3.30.10.3.30.0.3.30.1.4.30 
33100 DATA 12.3.30.3.4.30.3.4.23.3.4.23.6.4.30.3.4.25.6.4.23.0.4.30 
33190 DATA 0.3.30.17.3.30 
33200 DATA 1.4.100 

39999 REN--IMPRESSION PORTEE. 

40000 CLS:LORESI 
40010 W*8 

40020 FOR Y-3 TO 13 STEP 2 
40030 FOR X-l TO 38 
40040 PLOT X,Y,*>" 

40050 NEXT X 
40060 NEXTY 
40070 PLOT 3.3.-/0“ 

4007J PLOT 3.4.*9|" 

40000 PLOT 3.3.* *2“ 

40003 PLOT 3.6.*'>* 

40090 PLOT 4.7.“00" 

40093 PLOT 2.8.'*6*: PLOT 3.8.*9* 

40100 PLOT 2.9.-**:PLOTS.9.“9" 

40110 PLOT2.10.*l' PLOTS.10.'345* 

40113 PLOT2.11.* 1“: PLOTS.11,"076" 

40120 PLOT 2.12.**.-. : 

40123 PLOT 3.13.*9* 

40130 PLOT 3.14.*9* 

40133 PLOT 4.13.*<■* 

40140 RETURN 

43000 REH »» AFFICHACE NOTE" 

43010 IF S-l THEN PLOT W-1.GRYIS > , ”> >* ELSE PLOT W.CRYlS».* • 

43013 V-VO 
43020 RETURN 

48000 REN ttREDCFINITION CAR *• 

48010 C-46080 

48020 FOR R*97 T0I02 

48030 FOR L*0 T07 

48040 READ X :POKE C*0»R*L.X 

48030 NEXT L:NEXTR:RETURN 

30000 DATA 01.03.07.03.06.03.02.01 

30003 DATA 07.I2.20.»37.B33.» 1B.13.06 

30010 DATA 12.12.12.12.12.12.63C.00 

30013 DATA 00.32.48.16.40.16.32.00 

30020 DATA 48.24.28.436.023.32.37.48 

30023 DATA 24.24.24.24.24.24.•1E.00 
31000 REH aaCLE DE SOL *» 
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31010 DATA 03.03.03.03.03.03.0713 
31013 DATA 11.II.11.27.1*.10.31.33 
31020 DATA 00.01.01.*3.*3.I2.24 48 
31023 DATA 33.33.03.43.43.03.03.03 
31030 DATA 00.00.00.00.00.00.01.03 
91039 DATA OI.03.04.I3.74.49.33.00 
31040 DATA 04.04.12.43.43.24.14.16 
31043 DATA 48.48.32.32.32.32.32.48 
31030 DATA 48.I4.14.43.43.I2.04 03 
31033 DATA 03.03.03.03.03.03.03.03 
31040 DATA 01.01.00.00.00.00.00.00 
31063 DATA 00.37.48.24.00.07.01.00 
31070 DATA 00.00.00.00.00.00.36.13 
31073 DATA 03.03.03.03.03.03.03,63 
31080 DATA 00.00.00.01.03.03.03,03 
31083 DATA 08.28.34.33.01.01.01.01 
31040 DATA 01.03.02.06.04.04.17.08 
31043 DATA 08.24.16.48.37.32.00.06 
31100 DATA 03.03.13.27.14.27.11.13 
31103 DATA 00.00.36.14.03.00.00.48 
31110 DATA 00.00.00.00.48.14.14.24 
31 113 DATA 08.00.12.63.63.12.08.08 
31120 DATA 48.48.48.63.63.00.00.00 
31123 DATA 13.13.13.63.43.03.03.03 
31130 DATA 03.03.03.03.03.03.03.03 
31133 DATA 00.00.00.00.00.03.14,34 
31140 DATA 24.16.48.32.32.37,00.00 
31143 DATA 31.23.33.34.37.37.63.13 
31130 DATA 03.02.04.12.24.48.32.00 
SI 133 DATA 00.00.00.63.63.00.00.00 
31140 DATA 11. 11. II.27.14.14.31.35 
31200 AD* 47104 
31210 FOR 8-33 TO 43 
31213 FOR T-0 T07 
31220 READ V 

31223 PORE AD-8»R-T.V NEXT NEXT 
31230 RETURN 

33C00 ROI «4AFT1CHACE PERDU* • 

. 33C02 TEXT 


ECHO : MODIFICATIONS 
POUR ATMOS 


33003 EXPLOOC:TEXT:CLS:PAPER4 INK3 
33010 PLOT 10.8.*6d •**»*•**«" 

33020 PLOT 10.4.-t>» a PERDU f 
33030 PLOT 10.10. *c ' IMIIIItl* 

33040 PLOT 3.13.'ECOUTE ENCORE ET RECOHRCNCC* 

S90S0 WA IT 900 LOftCSI RCTVRH ' 

36000 RER «lArriCH 3 POIS PEROU «f 

36002 TEXT CLS EXPLOOC PAPER6 1NK1 

36003 PLOT 6.8.*«d ia a a a a a a a a a a a aaa- 
36010 PLOT 6.4.*b» I ENCORE PEROU I" 

36013 PLOT 6.10.'cf aaaaaaaaaaaaaaaa* 

36020 PLOT 6.13.-C'ETAIT LE DERNIER ESSAI' 

36023 PLOT 6.14.*TU FERAS MIEUX LA - 
36030 PLOT 6.17.-PROCHAINE FOIS" 

36033 WAIT300 COSUP 600 

36036 PLOT 2.1.CHR4I81 

34037 PLOT lO.t.'M SOLUTION **' 

36038 PLOT 0.20.CHRf < 8 » PLOT 0.I8.CKR4I8» 

36040 FOR E-l TO NI 

34043 S-NIEl :PL0T7-3*<E-I ».18.NOUS» PLOT 7-38«E-1 ».20.A4 IE> 

36030 NEXT 

34033 NAIT 200-44aNI H-0 RETURN 
37000 REM a aAFFI CH CACNE** 

37003 ZAP ZAP ZAP TEXT PAPERO I NK 1 :CLS 
37007 FOR YV-7 TO 17 PLOT 3.YY.CMR»1I2 » NEXT 
37010 PLOT 14.7,*40* 

37013 PLOT 14.8.-66 ••**•- 
57020 PLOT 14.9.'cf * ** 

37023 PLOT I4.10.' IC «' 

37030 PLOT 14.1I.*4d • A 8* 

37033 PLOT14.12.*6# « C •" 

57040 PLOT 14.13.*cf • N t* 

37043 PLOT 14.14.* • E •” 

37030 PLOT 14.13.*6d • *' 

37060 PLOTI4.14.*6# aaaat- 
37063 PLOT14.17.-cf 
37070 WA I T 300 

37080 SC « PPi-SC « PP >-«CL*Ii»NI8i3-Hi 
37040 RETURN 


10530 REM--TABLEAU FIN DE JEU- 

10540 CLS:PAPER3:INK4:IN=4 
10550 FOR 1 = 1 T026: PLOT 2,I,CHR$(10) :NEXT 
10560 FOR 1 = 10 TO 18 : PLOT 2,I,CHR$<14) :NEXT 
10570 INK IN 

10580 FOR J=1 TO 21 STEP 18 
10590 FOR 1=3 TO 37 STEP 2 
10600 PLOTI,J. "ad" :PLOTI,J+l, "ad" 

10610 PLOTI,J + 2,"be":PLOTI,J+3,"be" 

10620 PLOTI,J + 4 ,"cf":PLOTI,J + 5,"cf" 

10630 NEXT:NEXT 

10635 PLOT 14,13,"AU REVOIR":PLOT 14.14,"AU REVOIR" 
10640 WAIT 200 

10650 IN=IN+l:IF IN=6 THEN IN=0 
10660 IF IN=2 THEN IN=4 
10670 GOTO 10570 

15000 REM- Titre- 


306 PRI NT : PRINT : INPUT"DESSIN <0/N): M ; A$ 

307 IF A$="0" THEN CL=0:GOTO318 

308 IFA$ = "N" THEN CL=1 :G0TO318 

309 PRINT"FAIS ATTENTION":GOTO306 
318 :GOSUB 600 'INTERPRETATION NOTE 


20000 
20040 
20050 
20055 
20065 
20100 
20120 
20130 
20140 
20150 
20155 
20160 
20170 
20180 
20 186 


REM- présentation 

CLS:PAPER 4 


W=12 :BB=1 

GOSUB 40000 

FOR P=1 TO 8 

:MUSIC l,O(P),N(P),10 

.' PLAY 1,0,0,0: WAIT 30 

: PLAY 0,0,0,0 

PLOT 8,GRY < P),CHR4(BB) 

:plot w,gry<p) , 

:W = W + 3:BB=BB+1 : IF BB>7THEN BB=1 
NEXT P 

: WAIT200:RETURN 
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VARIABLES CACHEES 


Jacques TALLONE 


C omment trouver l'adresse de variables (en tous genres) et ce en 
utilisant au mieux une routine de la ROM... ? Il suffisait d'y pen¬ 
ser, et les quelques octets permettant d'accéder à la routine ROM 
tiennent dans une zone de la RAM rarement utilisée. 

Voici le programme Basic et la partie "Assembleur" commentée. 
Pour l'utiliser, faire : 

!AD ou !A% ou !A$ ou !B$( 1 )... 

La routine est entièrement relogeable. L'adresse pointe derrière le nom 
de la variable... Si la routine ne trouve pas le nom de la variable, elle 
en crée une à ce nom... 


ROUTINES EQUIVALENTES 


ATMOS 
CBFO 
DI 88 
E0C5 


ORIC-1 

CB9F 

DOFC 

E0C1 


10 FORAD=#BFEOTO#BFED : READCt :C=VAL( "#"+C$ ) : POKEAD , C : NEXT 
20 DOKE#2F5,#BFE0 

60 DATA20,FO,CB,20,88,DI,AA,98,20,C5,EO,4C,FO,CB 



IBFEO-BFED 


BFEO : 

20 

FO 

CB 

J SR 

ÎCBFO 

BFE3 : 

20 

88 

DI 

JSR 

$D1 88 

BFE6 : 

AA 



TAX 


BFE7 ! 

98 



TYA 


BFE8 : 

20 

C5 

EO 

JSR 

♦ E0C5 

bfeb: 

4C 

FO 

CB 

JMP 

$CBF0 


CBFO : Saut de ligne + retour chariot 

0188 : Routine qui lit le nom d'une variable. A la sortie, l'adresse 
est en A (poids faible) et Y (poids fort). 

E0C5 : Affiche, en décimal, le nombre entier contenu en A et X. 
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PREMIERS GRAPHIQUES 


A vec le module extensions, le 
FORTH de l'ORIC dispose de 
fonctions graphiques en haute 
résolution : les deux derniers 
écrans, 6 et 7, permettent en 
effet de compiler les mots CUR- 
SET, CURMOV, DRAW, CIRCLE, 
PATTERN, CHAR, POINT et FILL. 
Avec HIRES, il s'agit-là de l'inté¬ 
gralité des fonctions graphiques 
disponibles en Basic. L'utilisateur 
n’est guère dépaysé puisque la 
syntaxe de ces mots est une 
adaptation simple de leurs équi¬ 
valents Basic. Ainsi, CURSET, X, 
Y,FB devint en FORTH X Y FB 
CURSET. 

Il suffit de placer sur la pile les 
paramètres usuels de la fonc¬ 
tion : ici abscisse, ordonnée et 
allumage du point, avant d’exé¬ 
cuter le mot graphique. 

Voilà une bonne base puisqu'elle 
rétablit les possibilités d'origine 
de l'ORIC, mais FORTH ne peut 
se contenter d'un aussi maigre 
vocabulaire. 

Prenons un exemple : vous savez 
que DRAW est chargé de dessi¬ 
ner un segment de droite à partir 
de la position du curseur selon un 
déplacement relatif des coordon¬ 
nées, soit DRAW delta-X, delta- 
Y,FB. 

Il serait infiniment plus pratique 
de posséder un équivalent en 
coordonnées absolues. Rêvons 
d'une fonction Basic que nous 
appelerions TRAIT, qui accepte¬ 
rait les 4 paramètres : l'abscisse 
d'origine, l'ordonnée d'origine, 
l'abscisse et l'ordonnée de des¬ 
tination. 

TRAIT X1,Y1 ,X2,Y2 réaliserait 


Michel ZUPAN 


l'opération : 

CURSET XI ,Y1,1 : DRAW X2- 
XI, Y2-Y1,1. 

FORTH va se faire un plaisir 
d'exaucer vos désirs I Nous 
allons créer le mot TRAIT qui 
prendra lesdits paramètres sur la 
pile pour tracer un trait entre le 
point XI,Y1 et le point X2,Y2. 
Pour familiariser les débutants, 
nous allons décortiquer la créa¬ 
tion de TRAIT en expliquant ce 
qui se passe sur la pile. 


Outre CURSET, DRAW et deux 
soustractions prévues, nous 
avons utilisé des manipulations 
de pile : ROT qui réalise une per¬ 
mutation circulaire des trois der¬ 
niers éléments de la pile, la dou¬ 
ble duplication 2DUP duplique le 
sommet de la pile... 

Nous avons aussi utilisé >R et 


R> qui donnent à la pile de retour 
le rôle d'une file d'attente. Un 
bon conseil : vérifiez toujours 
dans vos définitions qu'il y a 
autant de >R et R> sinon gare 
aux plantages ! 

Nous allons tout de suite expéri¬ 
menter TRAIT dans un petit des¬ 
sin à la manière de ces motifs 
décoratifs qui consistent à tendre 
des fils entre des clous plantés 
sur une planche. Le mot DESSIN 
dont la définition suit celle de 


TRAIT dans l'écran 1 reproduit ci- 
après, plante des clous de dix en 
dix sur un cadre rectangulaire et 
joint chaque clou par un fil à un 
clou du côté adjacent. 
L'ensemble est réalisé au sein 
d'une boucle. 190 0 DO ... 
10 + LOOP qui va de 0 à 190 par 
pas de 10 et dans laquelle est uti- 



MOTS 


PILE 

Création TRAIT 

: TRAIT 

XI 

Y1 

X2 Y2 

Y2 sur pile retour 

>R 

XI 

Y1 

X2 

X2 sur pile retour 

>R 

XI 

Y1 


Duplique XI et Y1 

2DUP 

XI 

Y1 

X2 Y2 

Allumage FB à 1 

1 

XI 

Y1 

XI Y1 1 

Curset XI,Y1,1 

CURSET 

XI 

Y1 


Récupère X2 

R> 

XI 

Y1 

X2 

Rotation 

ROT 

Y1 

X2 

XI 

Soustraction 

- 

Y1 

X2 

-XI 

Récupère Y2 

R> 

Y1 

X2 

-XI Y2 

Rotation 

ROT 

X2 

-XI 

Y2 Y1 

Soustraction 

- 

X2 

-XI 

Y2-Y1 

Allumage FB à 1 

1 

X2 

-XI 

Y2-Y1 1 

Dessine trait 

DRAW 




Fin de définition 

» 

$ 

• • 

• 
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lisé quatre fois TRAIT avec une 
utilisation judicieuse de I qui place 
sur la pile la valeur du compteur 
de boucle. 

Essayez : faites HIRES DESSIN 
après compilation de l'écran 1. 
Pas mal pour un début, et rapide, 
non ? 

Une telle oeuvre mérite une copie 
d'écran sur imprimante : complé¬ 
tons à cet effet le vocabulaire 
PRINTER décrit dans un précé¬ 
dent article. 

Nous avons choisi d'étendre 
PRINTER pour l'imprimante SEI- 
KOSHA GP1OO-A en raison de sa 
diffusion large parmi les Oriciens, 
mais il n'est guère plus difficile de 
l'envisager pour toute autre 
imprimante. 

Définissons d'abord les fonctions 
de contrôle propres à la GP 100. 


GRAPH fait passer l'imprimante 
en mode graphique. 

NORMAL revient en mode écri¬ 
ture normale. 

LARGE passe en mode écriture 
dilatée. 

POS (n—) tabule à la position n 
en mode écriture. 

GPOS (n—) tabule à la position n 
en mode graphique. 

Signalons également, pour les 
utilisateurs d'ORIC-1, l'intérêt 
d'inhiber les interruptions pen¬ 
dant l'impression : 

HEX : INHIBE 40 30E ! ; 

puis de les activer à nouveau : 

: ACTIVE CO 30E I ; DECIMAL 

HCOPY enfin réalise la copie de 
l'écran HIRES. Nous avons choisi 
une solution relativement simple 


en un seul mot, quoique peut per¬ 
formante, qui explore chaque 
pixel de l'écran par la fonction 
POINT de l'extension graphique, 
les rassemble par groupe vertical 
de sept dans l'octet dont le der¬ 
nier bit est à un pour l'impression 
propre à la GP 100. 

Il existe au moins deux autres 
solutions plus rapides, mais plus 
complexes en partant des octets 
représentant six pixels horizon¬ 
taux auxquels on fait subir des 
rotations binaires ou encore par 
l'utilisation directe d'une routine 
en langage machine (voir THEO- 
RIC n° 1). 

Mais, rassurez-vous, puisqu'on 
vous dit que c'est du FORTH I 
Cette copie d'écran reste bien dix 
fois plus rapide que son équiva¬ 
lent Basic. 


SCRN# 
< 0 ) 

< 1 ) 

< 2 ) 

< 3) 

< 4) 

< 5) 

< 6 ) 

< 7) 

< 8 ) 

< 9) 
(10) 
<11> 

< 12 ) 

(13) 

(14) 

(15) 


( programme graphique mode HIRES - utilise les extensions ) 

: TRAIT < x1 yl x2 y2 - trace un trait entre xlyl et x2y2 ) 

>R >R 2DUP 1 CURSET R> ROT - R> ROT - 1 DRAW ; 

< - ) 

( dessin d’application ) 

: DESSIN 

190 0 DO 

30 I 30 I + 180 TRAIT 
30 I + 0 210 I TRAIT 
210 I - 0 30 I TRAIT 
210 I 210 I - 180 TRAIT 
10 +L00P ; 

—> < suite à l’écran 2 ) 


SCRN# 2 

< 0) < HARD-COPY D’ECRAN HIRES pour Seikosha GP-100 ) 

< 1) < Utilise extensions pour fonction POINT ) 

< 2) PRINTER DEFINITIONS DECIMAL 

< 3) : GRAPH < mode graphique ) 8 EMIT ; 

< 4) : NORMAL ( mode écriture ) 15 EMIT ; 

< 5) : LARGE < écriture dilatée ) 14 EMIT ; 

< 6) : POS < n - position mode écriture ) 

< 7) 16 EMIT 10 /MOD 48 + EMIT 48 + EMIT ; 

< 8) : GPOS < n - position mode graphique ) 

< 9) 27 EMIT 16 EMIT 256 /MOD EMIT EMIT ; 

(10) r HCOPY GRAPH 

(11) 196 0 DO I CR 100 GPOS 

<12) 240 0 DO I 1 -1 6 DO I SWAP >R >R OVER R> + OVER SWAP POINT 

(13) R> 2 * + -1 +L00P EMIT DROP LOOP DROP 7 +L00P CR CR NORMAL ; 

(14) FORTH . * HARD-COPY CHARGE " CR 

(15) ;S 
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Création TRAIT 
Y2 sur pile retour 
X2 sur pile retour 
Duplique XI et Y1 
Allumage FB à 1 
Curset XI,Y1,1 
Récupère X2 
Rotation 
Soustraction 
Récupère Y2 
Rotation 
Soustraction 
Allumage FB à 1 
Dessine trait 


MOTS 


PILE 


: TRAIT 

XI 

Y1 

X2 

Y2 

>R 

XI 

Y1 

X2 


>R 

XI 

Y1 



2DUP 

XI 

Y1 

X2 

Y2 

1 

XI 

Y1 

XI 

Y1 

CURSET 

XI 

Y1 



R> 

XI 

Y1 

X2 


ROT 

Y1 

X2 

XI 


- 

Y1 

X2- 

■XI 


R> 

Y1 

X2- 

•XI 

Y2 

ROT 

X2 

-XI 

Y2 

Y1 

- 

X2 

-XI 

Y2- 

-Y 1 

1 

X2 

-XI 

Y2- 

-Y1 

DRAW 

, # 

• 




1 


1 


Fin de définition 



DES TRUCS EN FORTH 


J.P. BONNET 


V oici un petit utilitaire qui vous 
permettra de disséquer le lan¬ 
gage. Certaines instructions en 
langage machine sont particuliè¬ 
rement intéressantes et peuvent 
être replacées dans d'autres 
applications. 

UTILITAIRE permettant de savoir 
comment un mot du dictionnaire 
est écrit (et même de le modifier 
par la suite). 

Exemple : 2DUP 
En premier, il faut toujours faire : 
'2DUP Z - donne NFA LFA CFA 
et PFA et charge la variable Q, le 
CFA contenant 9D6. 

On peut ensuite taper directe¬ 
ment ZN ou ZC (ou l'un après 
l'autre). 

ZC — donne la suite des noms de 
ces mots. 

Ex.: 2DUP - OVER OVER ; 

Si le CFA est chargé, OVER 
l'adresse du PFA, on tape MZM. 
On obtient alors la suite des 
codes hexa formant ce mot 
jusqu'au JUMP (4C) le plus pro¬ 
che avec l'adresse de ce saut. 


Dans tous les cas, on obtient, en 
rouge, l'adresse suivant la der¬ 
nière adresse du mot. 

Adresse MEM — donne la suite 
des codes hexa depuis l'adresse 
donnée jusqu'au prochain JMP. 

HEXO VARIABLE Q 0 VARIABLE 
QQ 

: Z HEX Q ! CR 

Q 6 ." NFA = ” NFA DUP . C6 . 
CR 

Q 6 ." LFA = " LFA DUP . ? CR 
Q 6 PFA = '' DUP . 6 0 D. ; 

: NOM 2+ NFA ID. ; 

: SPR QQ + ! QQ 6 ; 

: LIM DUP 467 = IF 2 SPR 
C6 . -1 QQ +! ENDIF ; 

: EXC SWAP DUP ROT = IF 2 
SPR ? ENDIF ; 

: ECR DUP EF6 = IF 2 SPR C6 
0 DO 1 SPR C6 EMIT LOOP - 1 


QQ +! SPACE ENDIF ; 

: COND DUP DUP 80 C - 
SWAP 13EE — * 

SWAP El2 - * 

0 = ; 

: ZN Q 6 QQ ! BEGIN QQ 6 6 DUP 

NOM LIM 

42A EXC 

537 EXC 

556 EXC 

5A7 EXC 

577 EXC 

ECR 2 QQ +! COND UNTIL CR 
3 SPACES 1B EMIT ." A'' QQ ? ; 

: ZC ; même chose que ZN en 
remplaçant NOM par 0 D. 

: MEM BEGIN DUP C6 DUP . 
SWAP 1 + SWAP 4C = UNTIL 
DUP 6 0 D. 

CR 3 SPACES IB EMIT ." A" 
2 + . ; 

: MZM Q 6 MEM ; 
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TRUCS ET ASTUCES 


De M. TRUANT José à Marchiennes 


De M. MOREAU P.Y à Versailles 


Créer un véritable RESTORE N 
sur ORIC-1 ou ATMOS n'est pas 
bien difficile, et cela tient en quel¬ 
ques octets. La routine est entiè¬ 
rement relogeable : si l'adresse 
7500 ne vous convient pas, vous 
pouvez l'implanter ailleurs. 

Pour utiliser la routine : DOKE 
# 2F5, #7500. 


Ensuite ! numéro de ligne avant 
le READ-DATA provoquera le 
RESTORE sur le numéro de ligne 
suivant le !. 

Voici les deux lignes de Basic 
(ORIC-1 et ATMOS) et la routine 
(ATMOS) désassemblée. 

En ORIC-1 : E853 = E79D et 
C6B3 = C6DE. 


Le programme de recopie d'écran 
pour GP 50 publié dans THEORIC 
n° 4 et les différents DOS sont 
incompatibles, utilisant tous la 
fameuse page 4 de la mémoire. 
La solution au problème est sim¬ 
ple. Il faut modifier le programme 
de recopie d'écran, et c'est très 
simple ! 

— Charger l'ancienne version, 

— faire DOKE #721E, #72E3 

DOKE #7246, # 72E3 

— sauvegarder cette nouvelle 
version. 

Le principe ? Au lieu d'utiliser les 
11 premiers octets de la page 4 
(ce qui détruisait le DOS), on uti¬ 
lise les 11 octets à partir de 
l'adresse 72E3. 



VERSION ATMOS 

10 FORAD»i7500TOi7510 :READD*:D=VAL(-•"♦D»):POKEAD.D:NEXT:DOKEH2F5,#7500 
50 DATA20,53.E8.20,B3,C6.C6.CE , A5,CE,85.BO.A5.CF.85.B1.60 

VERSION ORIC-1 

10 FORAD=i7500TO»7510:READDt:D*VAL<“•"♦DI):POKEAD,D:NEXT:DOKEB2F5.§7500 
50 DATA20,9D.E7.20.DE.C6,C6,CE.A5.CE.85.BO.A5.CF,85.B1.60 

17500-7510 


7500: 

20 

53 

E8 

J SR 

♦ E853 

Saisie du n° suivant la "1". 

7503: 

20 

B3 

C6 

JSR 

*C6B3 

Recherche la ligne correspondante. 

7506 : 

Ci 

CE 


DEC 

♦ CE 

Place l’adresse dans «CE. «CF Ices deux 

7508: 

A5 

CE 


LDA 

»CE 

octets correspondent aux octets de chaînage 

750A : 

85 

BO 


STA 

» BO 

de la ligne trouvée. 

750C : 

A5 

CF 


LDA 

1CF 

Place ensuite le pointeur DATA 1 » BO. 81 1 sur 

750E : 

85 

B1 


STA 

tBl 

le n° de ligne. 

7510: 

60 



RTS 




Michel ARCHAMBAULT 


LE BOUTON RESET 

Ne retournez plus votre ORIC 
pour y enfoncer un crayon que 
l'on ne retrouve plus... Il suffira 
de glisser la main sous l'appareil : 
l'accessoire miracle est le bou¬ 
chon plastique qui équipe les 
tubes en verre renfermant les 
recharges de stylos BIC (voir 
photo). Engagez ce bouchon 
dans le trou du reset et 
maintenez-le en place par un mor¬ 
ceau d'adhésif, c'est tout... 
Puisque l'on a le ruban de scotch 
en main, mettez-en aussi un mor¬ 
ceau sur le connecteur d’expan¬ 
sion pour le protéger d'un éven¬ 
tuel et fatal contact avec le jack 
d'alimentation. 

Puisque l'on parle de l'alimenta¬ 
tion, coupez le fil à 3 cm du jack 
et intercalez un petit interrupteur 
de lampe de chevet ; vous verrez 
comme c'est pratique... 


V 



^ Encore plus élégante, et rempla¬ 
çant le morceau d'adhésif de 
Michel ARCHAMBAULT, voici la 
solution de M. Henri NOUVEL. 
Grâce à ces deux astuces, ne 
retournez plus votre ORIC pour 
faire RESET, il ne vous le pardon¬ 
nerait pas I 
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KILORIC 


L a rubrique KILORIC démarre, 
et vous commencez à répon¬ 
dre à l'appel lancé dans le n° 7, 
prouvant que vous ôtes astucieux 
et... paresseux à la fois. 
Rappelons brièvement le prin¬ 
cipe : les programmes écrits 
exclusivement en Basic doivent 
tenir sur moins d'un kilo-octet et 


commencer par HIMEM #900. 
Ne trichez pas et admirez les 
résultats, vous serez surpris par 
ce que l'on peut faire avec un 
petit kilo de mémoire. 

Alain PALANQUEest à l'honneur 
ce mois-ci avec son programme 
de gestion de pages, sorte de 
mini-traitement de texte. Il tourne 


sur ORIC-1 et sera aisément 
modifiable pour fonctionner sur 
ATMOS. Malgré sa petite taille, 
la présentation a été soignée, et 
Alain PALANQUE mérite vos 
applaudissements. On se lève, s'il 
vous plaît. 


1 HinEM#900:CLS:PAPER6:INK4:P0KE#26F,23 : 
F0RI=24T027 -'D0KE48E3* 1*40, 768 -NEXT 

2 PLOT 1,26,'TIICROTEXT ORIC1/HCP40 

pRGE : " :PLOT0,26,2:PLOT36,26,P* 

3 PL0T1,24,"Cmde:ESC Sa.K? Ch.K7 I 

m P r. Fin" :PL0T9.24,5 

4 C*-"" :C*=KEÏ$:IFC*- ,,,, THEN4 
6 IFC*=CHR* C27 3 THENGOSUB80 

10 IFPEEK(6163<23PNDPEEK C 616 ] > 1THENPRIMT 
Cé; 

11 IFPEEKC 616 3 > 22THEMPRINTCHR* C113 J 

12 IFPEEKC616J <2THENPRINTCHR*t103î 

13 IFC*=CHR*C133THENPRINT 

14 G0T04 

20 GOSUB50:POKE48039,96 

21 CSBUEP*,848039,E48959,AUTO:P$="":PRIM 
TCHR*C1735:RETURN 

28 GOSUB50 :DOKE1024iDEEKC49C]:CL0RDP*:D0 
__^KE#9C, DEEKC 1024 3 :PRIMTCHR*C 173 } : RETURM 
I 36 GOSUB50.’CBLL#E6CR:LPRINTCHR*C17] :LPRI 
NT"PAGE • ";P* îLPRINT 

37 F0RY=>1 T021 :FORX=0TO38 :LPRINTCHR*CSCRN 


CX,TJ3j:NEXTX:LPRINT" ":NEXTT 
38 CPLL«E804:PRINTCHR*C173J =RETURN 
50 PRINTCHR*(173 >; IFP*<>""THEN62 
52 C*=" ":p$="" :PL0T36,26," " :PL0T27,26 

,12:F0RI=lTO3:PL0T35+I,26,19:NEXT 
54 F0RI=1T03 

56 GETC* : IFC*<CHR$C323ORC*>CHR*(90JTHENP 
ING:G0T056 

60 PL0T3'5fI,26, C* :P*-P*+C* :NEXT : IFP*-" 
"THEMP*="" 

62 PL0T1.26,"Prêt îRETURN Sinon :DEL" 

64 PLOT30,26,12 :GETCS:IFC*=CHR*C1273THEN 
P«-"":PRINTCHR*C173 J:G0T02 

66 PLOT0,26,0:PLOT25,26,3:RETURN 
00 j»12 : PLOT0j 26,3:PL0T1>24,"Choix :->" :P 
LOTI,26,"Ual(dation cmde : RETURN" 

82 REPERT :P0KE49E3rI,12 :P0KE49E3+I+ 8 , 8 :G 
ETC* :P0KE49E3rI ,8 :1-Ir8:IFI>36THENI-12 
86 UNT1LC$=CHR*C133:P0KE49E3+l-8,12 :IFI = 
12THENCPLL555 
90 GOSUBI :G0T02 


MICROTEXT 

Permet d'écrire une page de 
texte, de l'imprimer, de la sauve¬ 
garder sur cassette pour la 
recharger ensuite. Le mode d'em¬ 
ploi est simple ; il a d'ailleurs été 
écrit au moyen de MICROTEXT 
couplé à une MCP-40. 



HODE D’EnPLOI DU PROGRAMME niCROTEXT 


- Des le lancement du programme, un 
texte peut etre saisi sur 21 lignes 
avec toutes les commandes d’edltlon 
usuelles Cfleches, Ctrl...3. 

- R tout moment, il est possible de 
passer en mode commande en appuyant 
sur la touche ESC ; sélectionner en¬ 
suite la fonction a mettre en oeuvre 
en la faisant clignoter Cappui sur 
une touche que Iconque pour passer en 
revue les differentes options], 

- Taper RETURN pour valider l’option 
choisie ; il convient alors de don¬ 
ner un nom a la page concernée C3 
caractères]. La page n’aura pas de 
nom si des espaces ont ete saisis. 

- RETURN lance l’execution, DEL permet 
de renoncer. 
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ORIC BASE 

(suite) 



P our passer ORIC BASE de l'ORIC-1 
vers l'ATMOS, plus de problème : la 
lecture de THEORIC n° 7 vous apportait 
la solution. 

M. Jean-Claude HOURDIN complète le 
travail en proposant les modifications 
permettant aux possesseurs du MICRO- 
DISC d'utiliser ORIC-BASE. 

Voici quelles sont les opérations à effec¬ 
tuer après avoir ôté les lignes 20005 à 
20180. 

Passage de HIMEM # B3FF à HIMEM 
# B3FE pour éviter le "OUT OF 
MEMORY” dû à la présence du DOS en 
mémoire. 

Le choix de IGET et IPUT est dû au fait 
qu'il permet de remplacer une partie du 
nom de fichier, l'extension, par une 
variable alphanumérique, ce qui rend 
possible le stockage de plusieurs fichiers 
traités par ORIC-BASE sur une même 
face de disquette. 

Une dernière fois, merci à tous ceux qui 
ont répondu à l'appel lancé au sujet 
d'ORIC-BASE... 


Ligne à 
modifier 

Ligne à 
ajouter 

ORIC BASE - ATMOS/MICRODISC 

0 


HIMEM # B3FF devient HIMEM # B3FE. 
Supprimer PLOT 13,10, "Attendez S.V.P '. 

1 


Supprimer GOSUB 20005 

Ajouter POKE 1277,1. 

310 


Supprimer POKE #67,0:CALL 1024,JU%. 
Ajouter IPROT" •+ NM$,N:!DEL 
"DIMENS." + NM$. 


311 

!OPEN"DIMENS." + NM$,W:FOR 1 = 0 TO 
6 : AS = JU % (1) : ! PUT A$:NEXT l:!CLOSE 

333 


Supprimer POKE #67,0:CALL 1024,D$ 
Ajouter ! DEL" DONNEE." + NM$:!OPEN 
"DONNEE."+ NM$,W 

335 


Supprimer WAIT 700 

Ajouter FOR 1 = 0 TO (NI + 2):FOR J = 0 TO 
N2:A$ = D$(I,J):!PUT A$:NEXT J:NEXT 
UCLOSE 

338 


Supprimer POKE #67,0:CALL 1024.MS 
Ajouter ! DEL" MACROS." + NM$:!OPEN 
"MACROS."+ NM$,W 


340 

FOR 1 = 0 TO (MN + 1 ):FOR J = 0 TO 2:A$ = 
M$(I,J):!PUT A$:NEXT J:NEXT IJCLOSE 

1020 

341 

IPROT".."+ NM$ 

PRINT:PRINT:PRINT:PRINT E$"1 Charger 
un fichier du disque" 

1055 


CLS:PRINT:PRINT"Chargement d'un fichier 
disque" 


1057 

PRINT:INPUT "Nom du fichier (3 caract. 
maxi) ";NM$:IF LEN(NM$)>3 THEN 1057 

1060 


Supprimer POKE #67,0:CALL 1027,JU% 
Ajouter !OPEN"DIMENS." = NM$,R:ER = 
PEEK( 1279):IF ER = 1 THEN PRINT ELSE 
1062 


1061 

PRINT"Ce fichier n'existe pas":WAIT 700: 
RUN 


1062 

FOR 1 = 0 TO 6:!GET A$:JU%(I) = A$:NEXT 
UCLOSE 

1077 


Supprimer POKE #67,0:CALL 1027,D$ 
IOPEN"DONNEE." + NM$",R:FOR 1 = 0 TO 
(NI + 2):FOR J = 0 TO N2:!GET A$:D$(I,J) 

= A$ 


1078 

NEXT J:NEXT UCLOSE 

1130 


Supprimer POKE #67,0:CALL 1027,M$ 
Ajouter !OPEN"MACROS." + NM$,R:F0R 

1 = 0 TO (MN + 1 ):F0R J =0 TO 2:!GET A$: 
M$(I,J) = A$ 


1135 

NEXT J:NEXT UCLOSE 


1211 

PRINTJNPUT"Nom du fichier (3 caract. 
maxi)";NM$: IF LEN NM$>3 THEN 1211 

7091 


IF Z = 1 THEN POKE # 20C, # FFiRETURN 

7096 


PRINT:POKE # 20C, # FF:RETURN 
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N ous avons découvert, lors de 
notre leçon précédente, 
l'existence de variables de types 
différents. Vous avez peut-être, 
en bon élève que vous êtes, tenté 
de réaliser le petit programme 
permettant d'associer un jour de 
la semaine à son numéro d'ordre. 
Pas facile avec le peu d'instruc¬ 
tions dont on dispose ! 

Le premier travail consistait à ran¬ 
ger les jours dans un tableau : 
10 DIM J$(7) 

20 J $ ( 1 ) = "LUNDI" 

30 J$(2) = "MARDI'' 

6tC. 

70 J$(7) = "DIMANCHE" 

Puis, pour les afficher : 

100 PRINT 1,J$(1) 

110 PRINT 2, J $ (2) 
etc. 

160 PRINT 7,J$(7) 

Notons au passage que la virgule 
qui suit le print permet d'espacer 
de 8 blancs ce qui suit. Le pro¬ 
gramme qui en résulte est peu 
élégant et fort long à taper. 

Une première amélioration con¬ 
siste à introduire le numéro de 
jour à partir du clavier, le pro¬ 
gramme se chargeant de répon¬ 
dre par son nom. En Basic, le 
verbe qui permet d'effectuer ce 
travail est : INPUT. 

Lorsque l'ordinateur rencontre 
dans un programme ce mot, il se 
met en attente et affiche un ? 
signalant à l'opérateur qu'il doit 
faire quelque chose. 

INPUT permet de rentrer des 
variables de type numérique ou 
alphanumérique. 

Il peut même être suivi d'un mes¬ 
sage servant à guider l'opérateur. 
Ajoutez à votre programme les 
lignes suivantes et relancez-le: 
200 INPUT ''Jour";J 
210 PRINT J,J$(J) 

Entrez un chiffre entre 1 et 7 et 
le programme vous répondra par 
le jour correspondant. 

Nous allons voir maintenant 
comment faire pour afficher, sans 
intervenir, tous les jours de la 
semaine. Pour ce faire, nous 
allons découvrir un nouvel ordre 
Basic : IF... THEN. 

On pourrait le traduire, en bon 
français, par : SI... ALORS. 

Si la condition qui suit le IF est 
réalisée, alors on fait ce qui suit. 


Ici, pour simplifier, ce qui suit sera 
l'arrêt du programme : END. 
Modifions notre listing précé¬ 
dent : 

200 I = 1 

210 PRINT l,J$(l) 

2201 = 1+1 

230 IF I> 7 THEN END 
240 GOTO 210 
Par la même occasion, nous 
découvrons le GOTO qui permet 
au programme de se dérouter 
vers une autre ligne (ici 210). 
Tant que I n'aura pas dépassé 7, 
le-branchement vers la ligne 210 
va s'effectuer, et les jours de la 
semaine vont s'afficher sur votre 
écran. 

Il existe, dans le Basic de l'ORIC 
un moyen de supprimer le GOTO 
derrière le IF... THEN. C'est le 
ELSE, qui se place sur la même 
ligne que le IF... THEN. 

240 IF I >7 THEN END ELSE 
210 

On obtient la forme SI... 
ALORS... SINON. Nous appren¬ 
drons à manier avec précaution 
ce ELSE... 

Toujours plus fort... Nous allons 
atteindre le raffinement pour trai¬ 
ter ce genre de problème en 
découvrant la BOUCLE. En fait, 
nous l'avons déjà réalisée avec la 
forme précédente, mais il y a plus 
élégant en Basic avec le FOR... 
NEXT. 

Le FOR... NEXT réalise une suite 
d'opérations (au sens large du 
terme), plusieurs fois de suite. Ce 


nombre de fois est contrôlé par 
ce que l'on nomme la variable de 
boucle. Rien de sorcier, rassurez- 
vous, la traduction est : 

Pour X allant de la valeur 1 à la 
valeur 2, faire le travail, et au sui¬ 
vant. Quand la valeur 2 est 
atteinte, on arrête. 

Modifions notre listing... 

200 FOR J = 1 TO 7 
210 PRINT J, J$(J) 

220 NEXT J 

Il n'est pas obligatoire de 
commencer à 1 si l'on veut affi¬ 
cher les jours seulement à partir 
de mercredi (par exemple), on 
écrira : 

200 FOR J = 3 TO 7 
On peut même commencer à 
l'envers... Dans ce cas, il faut 
ajouter un ordre Basic dans notre 
FOR... NEXT. 

Cet ordre déterminera le pas (on 
peut afficher les jours de 1 en 1 
ou de 2 en 2) et le sens (croissant 
ou décroissant). 

200 FOR J = 7 TO 1 STEP - 1 
provoquera l'affichage des jours 
en commençant par dimanche... 
Tout cela est fort simple, et le pas 
peut être, non plus un entier, 
mais un nombre décimal (par 
exemple pour avoir les carrés de 
tous les nombres entre 2 et 3 par 
pas de 0,1...). 

Cette notion de boucle est indis¬ 
pensable à connaître et vous la 
maîtriserez très rapidement pour 
construire vos programmes. 

Et si on arrêtait pour aujourd'hui ? 


m % 

JEU 

SCORE 

AUTEUR 


GALAXIANS 

113 600 

Philippe PASQUER 


INVADERS (IJK) 

17 700 

Alex KRAUSS 

GC 

SIMULATEUR VOL 

2 859 

Nicolas RAMPELBERG 


XENON 

81 190 

Bénédicte GARREAU 

O 

HOPPER 

27 140 

James HEUILLARD 


ZORGON 

155 830 

E. TOLLEMER 

Q 

PAINTER 

103 850 

J.-Philippe MERIC 


HARRIER ATTACK 

73 150 

Nicolas BRUMENT 


MUSHROOM MANIA 

187 952 

Philippe LE MARECHAL 


ULTRA 

30 500 

J-Philippe MERIC 

O 

DRIVER 

66 500 

J-Yves BRUN 

ORION 

49 950 

David DEVIN 

ce 

PROTECTOR 

99 594 

Thierry AVANNIER 


ORICMUNCH 

895 439 

Michel LECLERC 


DEFENCE FORCE 

800 620 

Patrick CHESI 


STYX 

59 850 

Laurent DELHORBE 


DELTA FOOR 

6 920 

Laurent DELHORBE 


TRICK SHOOT 

1 015 

Laurent DELHORBE 


HUNCHBACK 

750 200 

Bénédicte GARREAU 


ULTIMA ZONE 

15 970 

Laurent DELHORBE 
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LE SCEPTRE D'ANUBIS 



S i vous errez toujours dans la 
pyramide, avec la ferme 
intention de vous débrouiller par 
vos propres moyens, tournez 


cette page immédiatement, sinon 
contemplez-là : le plan de la pyra¬ 
mide est sous vos yeux... Merci, 
Marc JULIEN ! 


Au fait, il nous a donné la solu¬ 
tion aussi, mais doit-on la 
publier ??? 



Bottes 

cloutées 


Coffre 
fermé 
à clef 


♦ 


♦ 


t 


Sac 

Cruche 


Retour à 
la selle 
corde 


-î --»■ 

S 


Pièce 

piégée 


Tombeau 
du roi 1 

- 1 - 

, Momie 

- 1 - 

- 1 - 


Fosse cro 
codiles 



S 

—•— 

Appuie 

oeil 


Pièce 

piégée 


w 

s 

■ 

* 

m -ST ■ 

o> * 

■ Epée 

■ 

Hiéro¬ 

glyphes 

■ 

Passage 

secret 

A 

■- 

■ Corde 

■ 

Boîte 

alumettes 

■ 

1 

Scorpions 

V 

Sud 

Piège 

Lampe 
* à huile * 

t 

■ Entrée ■ 

■ [ 


Pièce 

piégée 



Pièce 

piégée 

a 

Tombeau 
de ■ 
la Reine 

V 

Hiéro¬ 

glyphes 

A 

Toile 

laraignée^ 
• Clef 

A 

1 

Tarentule 

V 

Papyrus 



S 


Porte 
Escalier 
Passage secret 
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UNE ALIMENTATION DE MOINS 


Pierre JULIEN 


C ôté fils, ORIC est en tête : 

c'est certainement la machine 
familiale la plus gourmande en 
cordons d'alimentation secteur. 
Si vous possédez un MICRODISC 
ORIC (et son alimentation !) et 
deux doigts d'habileté, vous allez 
pouvoir supprimer l'alimentation 
de votre prise PERITEL. 

Signalons, avant de commencer, 
que certains ORIC sont équipés 
de manière à ne pas utiliser d'ali¬ 
mentation pour la prise PERITEL. 
Si vous êtes l'heureux posses¬ 
seur d'une de ces machines, 
tournez la page ; pour les autres, 
allez chercher votre fer à souder, 
un tournevis et quelques compo¬ 
sants nécessaires à la modifica¬ 
tion. 

Commençons par les compo¬ 
sants : 

— deux résistances de 68 ohms 


1/2 W, 

— un condensateur chimique 47 
ou 100 fiF 10/12 V, 

— un jack pour la prise Péritel, 

— un peu de fil... 

Ouvrir le boîtier d'alimentation du 
Microdisc. 

Le placer sur la table, comme le 
suggère le dessin. 

Nous prélèverons la tension d'ali¬ 
mentation sur les points repérés 
A et B sur notre dessin (ces repè¬ 
res n'existent pas sur la plaquette 
d'origine). 

Souder les deux résistances de 
68 0 1/2 W en série. Connecter 
une extrémité au point B (corres¬ 
pondant au plus du condensateur 
de filtrage 47 fiF présent dans 
l'alimentation). 

Souder au point A le moins du 
condensateur chimique de 47 fiF 
(ou 100 /iF). Y soucier aussi un 
mètre de fil qui ira au jack 


(moins). 

Le plus de ce condensateur et 
l'extrémité restée libre du grou¬ 
pement de résistances seront 
soudés ensemble, ainsi que l'ex¬ 
trémité d'un fil d'environ 1 mètre 
qui ira au jack (côté plus). 

Faire attention à ce que ce point 
commun (fil, résistance, conden¬ 
sateur) soit bien isolé et ne tou¬ 
che pas d'autre composant dans 
l'alimentation. Danger ! 

Faire sortir la paire de fils et la 
relier au jack allant sur la Péritel, 
le plus sur l'extrémité du jack. 
Si vous n'avez pas commis d'er¬ 
reur, votre Péritel peut mainte¬ 
nant être alimentée par ce jack à 
partir de l'alimentation du Micro¬ 
disc. 

Essayez avant de refermer le boî¬ 
tier. La paire de fils allant au jack 
sortira par le trou resté libre du 
boîtier alimentation. 
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INTERFACE MINITEL 



C omment rendre un MINITEL 
intelligent ? En le connectant 
à l'ORIC, pardi ! L'interface que 
nous avons testée pour vous est 
fabriquée par MAGECO ELEC¬ 
TRONIC et commercialisée dans 
la gamme PERIPH'ORIC. 

Pour moins de 500 F vous dispo¬ 
sez d'une petite boîte noire et 
d'une cassette contenant le logi¬ 
ciel permettant de l'utiliser. Il a 
été écrit par M. TORTOSA, un 
nom qui n'est pas inconnu aux 
possesseurs d'ORIC. Il est désor¬ 
mais possible de relier l'ORIC à un 
MINITEL. 

Deux connexions sont à établir : 
une pris gigogne viendra s'inter¬ 
caler, au dos du terminal, entre 
la prise du combiné téléphonique 
et celle du MINITEL. Une fiche 
DIN, 5 broches sera raccordée à 
la prise RS 232 du MINITEL : 
c'est par là que se feront tous les 
échanges, la prise gigogne ne 
servant que dans le cas où vous 
désirez prendre la ligne télépho¬ 
nique (composer des numéros) 
par l'intermédiaire du clavier de 
l'ORIC... Toutes ces connexions 
sont à établir avec ORIC hors ten¬ 
sion. Une prise 34 broches est 
connectée au bus de l'ORIC. Il ne 
reste plus qu'à mettre en marche 
le MINITEL puis l'ORIC. Il faut 
respecter cet ordre, de même 
que, à la mise hors tension, il fau¬ 
dra débrancher ORIC avant MINI¬ 
TEL. 

Après avoir chargé le programme 
(une partie Basic et une partie en 
langage machine), on est accueilli 
par un menu : la présentation est 
soignée, comme le reste du logi¬ 
ciel d'ailleurs. Il faut souligner que 


l'utilisateur pourra le modifier afin 
qu'il corresponde à ses besoins 
propres : de nombreuses REM 
ont été inclues dans le Basic à 
cette fin. 

Voyons ce que permet de faire le 
logiciel (associé à l'interface). 

— Composition d'un numéro de 
téléphone. C'est un peu la partie 
annexe mais sa présence se révé¬ 
lera bien pratique pour l'utilisateur 
qui appelle fréquemment les 
mêmes centres serveurs. En 
effet, plusieurs numéros peuvent 
être mémorisés, surtout quand 
on tient compte du fait que le 
logiciel peut être modifié par l'uti¬ 
lisateur. Cette fonction n'a pas pu 
être testée lors de notre essai 
(problème de câblage). 

— Connexion ORIC-MINITEL : 
vous utilisez alors le clavier de 
l'ORIC en lieu et place de celui du 
MINITEL. Par contre, ORIC ne 
peut pas reproduire sur son écran 
tous les caractères graphiques 
reçus par le MINITEL ; nous 
avions déjà signalé ce défaut 
avec les MODEM et il ne peut pas 
être résolu par logiciel. 

— Sauvegarde en mémoire d'une 
page écran. On peut ainsi préser¬ 
ver 10 écrans et les rappeler pour 
les consulter ensuite. Il est pos¬ 
sible de les faire défiler séquen¬ 
tiellement par modification du 
programme. Bien entendu, ils 
peuvent être transférés sur impri¬ 
mante et sauvegardés sur cas¬ 
sette ou disquette. Soulignons, à 
ce propos, le caractère "intelli¬ 
gent" du logiciel qui permet de 
travailler avec le MICRODISC ou 
avec le JASMIN, et qui sait 
détecter leur absence si vous ten¬ 


tez une sauvegarde alors qu'ils ne 
sont pas connectés. 

En cas de problème pendant l'uti¬ 
lisation, l'appui sur RESET provo¬ 
que le retour au menu principal. 
Nous avons testé le fonctionne¬ 
ment avec le MICRODISC mais 
pas avec le JASMIN, pour un pro¬ 
blème de connectique. En effet, 
il faudra prévoir pour ce dernier, 
soit l'amplibus, soit une "carte 
mère" ou un connecteur supplé¬ 
mentaire permettant son bran¬ 
chement simultané avec l'inter¬ 
face MINITEL. 

Nous avons aimé le fait que le 
logiciel soit entièrement accessi¬ 
ble à l'utilisateur désireux de le 
modifier. Nous avons moins aimé 
la notice un peu "légère", mais 
celle que nous possédions était 
une des toutes premières, et elle 
devait être modifiée. 

L'ouverture du boîtier laisse à 
penser que le prix de vente est un 
peu excessif, mais on peut dire 
que l'économie réalisée sur le 
coût des communications, du fait 
qu'il est possible de stocker les 
écrans pour les consulter ensuite, 
doit faire considérer l'achat 
comme un investissement pour le 
gros consommateur de données 
MINITEL. 
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L'OR/C FAIT DU CINÉMA 




COBRA SOFT 

EMBAUCHE RICHARD BERRY ? 


ichard BERRY programmeur ! 
Eh oui..., mais au cinéma où 
il interprête le rôle principal du 
nouveau film de Michel VIAN- 
NEY : “LE SCIENTIFIQUE". Dans 
ce film, le personnage joué par 
BERRY est un policier, David 
ACKERMAN, qui a laissé le 357 
Magnum au vestiaire pour se 
consacrer à l'informatique. 

Au travail, il initie ses collègues 
à l'utilisation des nouvelles tech¬ 
nologies. Le soir, quand il n'est 
pas embarqué dans une affaire de 
crime et poursuivi par des tueurs, 
il se livre aux joies de la program¬ 
mation... C'est ainsi que, dans le 
film, on voit Richard BERRY finir 
la mise au point de “COBRA PIN- 
BALL'' sur ATMOS. Cette 
séquence nous vaut de magnifi¬ 
ques images d'un des logiciels 
vedette de COBRA SOFT. 
Projeté sur l'écran géant d'une 
salle de cinéma, l'effet est saisis¬ 
sant ! 

A cours du film, les connaissan¬ 
ces informatiques du commis¬ 
saire ACKERMAN lui sauvent la 
vie et lui permettent de démas¬ 
quer un réseau clandestin et de 
dévoiler au grand public ses agis¬ 
sements, grâce à un modem 
connecté sur des Minitel, télex 
d'agences, panneaux d'affichage 
électronique. L'informatique est 
partout présente : ORIC, APPLE 
2, ROBOT MULTISOFT... 
Déplombage d'un fichier, bidouil¬ 
lage d'une liaison RS232, etc. 
L'informatique fait son entrée au 
cinéma comme elle l'a fait dans 
la vie quotidienne... 



L’assistance technique auprès du 
réalisateur Michel VIANNEY a été 
assurée par les responsables 
d'ARG INFORMATIQUE - COBRA 
SOFT. 

— Quel a été votre rôle pendant 
le tournage ? 

— Tout d'abord, nous avons écrit 
quelques logiciels simulant le 
fonctionnement de “gros pro¬ 
grammes''. Par exemple, la 
reconnaissance vocale utilisée 
par la police. D'autre part, nous 
avons dû modifier “COBRA PIN- 
BALL" pour faire apparaître le 
nom de David ACKERMAN au 
lieu de celui de Gilles BERTIN. 
Tous les programmes ont été 
faits sur ORIC, même lorsqu'on 
a l'impression qu'ils fonctionnent 
sur APPLE 2... En effet, la 
synchronisation de l'ORIC et de 
la caméra était plus facile à faire. 
Pendant le tournage proprement 
dit, notre rôle était de faire fonc¬ 
tionner ces programmes et le 
robot, mais surtout de conseiller 
le metteur en scène et les acteurs 
pour les “gestes techniques". A 
titre d'anecdote, pendant la 
scène où apparaît “COBRA PIN- 
BALL", le réalisateur tempêtait 
car il ne pouvait plus faire décol¬ 
ler Richard BERRY du flipper pour 
passer aux scènes suivantes... 

— Le résultat est-il réaliste ? 

— Assez pour certaines scènes. 
Cependant, les connaisseurs 
seront quelquefois surpris de la 
vision de l'informatique qu'ont les 
gens de cinéma. Pour le bien, il 
aurait fallu être consulté au 
moment de l'écriture du scénario. 
De toute façon, il est indispensa¬ 
ble de simplifier et de suggérer... 
le film est avant tout un polar ! 
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PAC MANQUE 


O n peut n'avoir que treize ans, 
c'est le cas de Serge, et 
écrire de bons programmes en 
Basic pour se distraire tout en 
apprenant. 

Celui-ci est une version du célè¬ 
bre PAC-MAN, et le programme 


Serge MEGAZZiNI 


est particulièrement soigné dans 
sa présentation : caractères 
entièrement redéfinis pour les 
textes, musique, couleurs, 
tableau d'honneur ; tout y est ! 
Vous en doutez ? Sortez votre 
ATMOS de son placard et saisis¬ 



sez le listing proposé. Au fait, si 
vous avez un ORIC-1, vous pou¬ 
vez toujours tenter de modifier les 
différents PLOT du programme 
pour l'adapter sur votre machine. 
Nous vous souhaitons bon appé¬ 
tit ! 


I H=O.GOTD3000 
5 £=E*I ' IFP-3MTHEN2000 
20 LETRnKEY» IFHI*CHRH6TKEH330 
30 !FFt»=CHR* <91THEN320 
40 !FR*=C«RM0ITHEN3I0 
50 irS»-CHR»MDTHEN300 
60 C3T0200 
130 RETURK 

300 l*S :YAHDSGRKlR.SM I :=106THEX400 
;i0 IFR'IAMDSCRKlR-1,S>'=I06THEK430 
220 IFS ïAKDSCRHtR.S-l* >=106THEN4IO 
? 30 IFR'XAKDSCRK < R*1,SI<=I06TKEK420 
240 IFSCRHfR*! ,S!. = 106THEN420 
250 IFSCRK<R,S*JK=t06THERI30 
260 GOT05 

300 IFSCRHlX.Y-IMOSÎHEHPlOTX.Y.* VYsY-IELSETOO 

301 ÎFSCRKÎX,Y1 = 104THEHC=CU :P=PM :PR!KTR20,QX 

302 IFSCRN(X.YI = 105THENE=0 

305 IFX=RAKDY=STHEK2500 

306 PLOTX.Y/e' GDT0200 

307 GOT0200 

310 !FSCRNIX,Y*11(I06THENPLOTX.Y,' ■ :Y=Y*1ELSE200 

311 IFSCRH(X,YI=I04THEKCX‘l:P=P*l:PRIK!«20,OX 

312 !FSCRH(X,YI=105THEHE=0 

315 1FX^RAH0YXTH£N2300 

316 PLOTX.Y.'I* 0010200 

320 [FSCRNIXM ,YM106THENPLOÎX,Y, # *:X=X« 1ELSE200 

321 1FSCRK(X,Y1 = 104THENC=C+1 :P=P*1 :PRIKT820,OX 

322 IFSCRH(X,Y1 = 105THENE=0 

324 !FX=35THEYX--2 

325 IFX=RAKDY=STHEN2500 
376 Pt-OTX.Y.'î'rtOraOO 

330 IFSCRHtX-l.Yt '1067HENPL07X.Y.* * : X*X-1ELSE200 

331 IF5CRHIX,Y) = !04THENC=C-l:P=P*l:PR!HT?20.0C 

332 IFSCRHIX,Y) = 105THEHE=0 

333 1FX=1THENX=34 

335 IFX*RAKDY : STH£H2500 

336 PLOTX.Y, V:COT0200 

400 PLOTR,S.At:S=S»l :F=F*1 : IFR=XANDS=YTHEK2500 

401 IFSCRK(R,S)=32THEHA4=* * :GOT0406 

402 N=SCRNIR,S):N=N'103:ONKGOSUB500,510,S20 

406 PL0T12,13.* • iPLOTR.S.V:IFF I4THEXF=0:GOT0200ELSE5 
110 PLÛTR,S.AI:S=S-1:F=FH:1FR=XAKDS=YTHEK2500 

411 lFSCRHtR,SI=32THENAI=* - :GOT0406 

412 N=SCRN(R,SI:N=N-103:0NHGOSUB500,5I0,520 

416 PL0TI2.I3,- •:PLOTR,S, , g*:IFF)14tHEHF=0:GOT0200ELSE5 

420 PLOTR.S.At:R=R* 1 :F=F* 1 :IFR^XAHDS=YTHEN2500 

421 IFSGRN C R - S >=32THENA0=• •X0ÎO406 

422 X*=SCRN(R,S>:X=H-103:OMNGOSUB500.5I0.520 

426 PLOTI2,13. - •'PL0TR.S.V1FF 14THEXF=O:GOTO20OELSE5 

430 PLOTR.S.AI:R=R-I:F=F*I:IFR=XAKDS=YTHEK2500 

431 IFSCRH<R,S)=32ÎHEHAI= - VGOIO406 

432 K-SCRN(R.S) N=H-103:OMNGOSUB500.510.520 

436 PLOT12,13.* * :PLOTR.S.•g * IFF>14THEKF=0 :GOTO200ELSE5 

500 M^h'XeniRN 

510 RETURK 

520 A»=Y RETURK 

737 REH Ut 

790 REH 4M «FFICHACE DU LABYRIKTHE 
97» REH 1«« 

1000 PfiPERO:1KK7 
1005 as 


1010 POKE624E.1:POKEI24F,l 
1020 PRIKT CHR4I6I CHRII20) 

1140 C=0:B=0:AM 

1200 X=30:Y=!3:R=I2:S=I3:E=15:D=C 
1210 FOR 1=1 10 25:Pfi!NT:KEXT 
1215 B=B*I:P=0 

I220 PRINT'nkkkkkkKkkkkKkhKKkkkkkkKkkkKKkkka* 

1230 PRINT'khhhhfchhhhhhhhhhhhhhhhhhhhhhhhhhk* 

1240 PRINT'k:jhaknkkkkkkkkahthnhjhkkkkkkka k* 

1250 PRINT’khhhjkhhhhhhhhhhhjh jhjh jhhhhhhhhk’ 

1260 PRIHT*1 h jh jkokkkkkkkk1 h jh jh jhohn j jah jko* 

1270 PRINT'hhhtijhhhhhhhhhhhhjkjhhhhhhhhhhhhh* 

1200 PRINT*ahnhjahnjOikkhjatinjbjhjhjjjjjlkjkn" 

1270 PSirrî'khjhhkhhjhM7hjhhhhhjh jhhhhhhhhhhk" 

1300 PRIKT'kTijjjjahjkkkkjhnjj jjhjhnkkkkkkahk* 

1310 PRWPkMihtiMihj jhhhhhhhhhhhhhhhhhkk* 

1320 PfitKT'66, ), jIhjkkkk;hOj t jjh^hokkkkkk1hk * 

1330 PSINÎ’kli jhMihh;hhhh jhhhhhjh jhhhhhhhhhtk* 

1340 PRIKT* lhoh j Iho jhkkhlho jh jh ,h j j j j jkhkho* 

1350 PRIHfhhhhjr.hhhhhhhhhhhjkjhhhhhhhhhhhPh* 

13e0 PRIKT'ahjhjknkkkkkkkkahj6jhjhnhO|jlhj6n* 

1370 PRINT'khhh jl-tihhhhhhhhhh jp jh jh jhhhhhhhkk* 

1380 PRINT’kikh1Fokkkkkkkk1hohIhjhjkkkkkklik‘ 

1330 PRIN7*khhhhkhhhhhhhhhhhhlihhhhhhhhhhhhhk* 

1400 PRIKT'okkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkl* 

1402 REH tu 

1402 REK l»« AFFICHAGE DU HAUT 

1404 REH lit 

14C5 FRINT:PRIKT PRIKT 

1410 PRIKT82.0 GPRIi 148> '‘PAC-ORIC : SCORE = •:PRIKT826.0 CHRI(144I 

1420 PRIKTP20.0 C 

1430 PRINTR2.2 CHR«( 148» *d ="A" TABLEAU =* B * HI-SC =’ K 
1435 PRINTB38.2 CHR»(1441 
1440 PLOT X,Y,'<T:PLOT R.S.'r* 

1450 HAIT 25'LET AI=” :GOTC 5 
1®36 REH lit 

1737 REH ni CHAKEHEKT DE TABLEAU 
1338 REH ni 
2030 GOSUB 4500 

2010 PRINT829.1 CHRtI127'''BONNUS-SO" 

2020 C=:*5O'PRIKIK0.0 C:LET A=AM :PR!MT06.2 A 
2030 HAIT 200 : PRIKTB28■1'■ 

205C GOTO 1200 

2497 REli m 

2498 REH Ht REKCOKTRE PAC-FAKTOHE 
2493 REH ni 

2500 IF EU6 THEH 2600 

2501 REH 

2502 REH PERDU 

2503 REH 

2510 HUSIC1,1,1,0 WAIT10.FDRIM200TO 6000 SIEP5:SOUKDl.I.L KEXT LPLOTX.Y,* • 

2515 ItUSIC 1,1.1,0 

2520 LET A=A-I : IF A(0 THEK 2800 

2530 PRIHTR6,2.A 

2540 X=30:Y=13:R=12:S=13:PLOT J,Y.M‘:PLOT R.S.V 
2550 LET A!=":GOrO 5 
2535 REH 

2596 REH GAGKE 

2597 REH 

260? PLOT R,S,‘f 
2610 E=!6 
2615 ZAP :UAIT 20 
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2620 PPIN7329.1 0HRIU29) 'BONNUS 10' 

2630 C=C*I0:PRINT820.0:C:8AITI0:IIUSIC1,1,1.OlFLAYl,0.6.150 
2635 PRINT8R.S' - p - :GOSUB50OO:ZAP:HUSIC 1.1.1.0 
2640 PRIKTeZB.l:* 'PLOT X.Y.’d- 

2650 LCT «*=•■:C0T05 

2796 REH lit 

2797 PDI III FIN D UNE PARTIE.CALCUL 

2798 RDI H» DES SCORES 

2799 RO! Il» 

2300 IF C<=OP THEN 2900 

2802 PORE I24E.24 POKE I24F.4:PRINT CHS4I6I CHRt(20> CHR*(I7I 

2805 CLS PRINT PRINT CHR9U29I CHRKI48) CHR»(138) * «U PERDU **** 

2810 PRINT CHRIU31ICHRIU48>'CHRI(|38>' - III PERDU lll - 

2815 PRINT: PRINT PRINT'VOUS AVEZ FAIT UN DES NE ILLEURS SCORES - 

2820 PPINT:PftINT :PftINT *VOTRE SCORE EST DE : - 'C 

2825 PPINT PRINT PRINT PRINT: INPUT - ENTRER VOTRE NOITXYI 

2826 PPINTCHRIl171 


2828 

IF 

C' AP 

THEN 

IJI=HII:HII=GHI 

2829 

IF 

C<AP 

THEN 

GHI=FGt : FGUEFt : EFI=0£l : DEI =CDI CDt=BCI: 

2830 

IF 

C> AB 

THEN 

IJ=HI:HI=CH:CH=FC:FC=EF 

2831 

IF 

AB 

THEN 

EF=DE:DE=CD.CD=BC:BC=AB:AB=C:COTO 2900 

2832 

IF 

C:BC 

THEN 

!JI=H!l:H!t=CHI 

2933 

IF 

c>ec 

THEN 

GHI=FGt:FGt=£FI:EFI=D£l:DEI=CDt:COI=BCi:l 

2834 

IF 

C BC 

THEN 

I J=HI :HI=GH:CH=FG:FG=EF 

2835 

IF 

«BC 

THEN 

£F=D£:D£=CD CO=BC BC=C:GOTO 2900 

2836 

IF 

C-CD 

THEN 

I»=HI»:HII=GH» 

2937 

IF 

C CO 

THEN 

GHI=FC-I FG1=EFI : EFUDEI : DEI=CDI :CDI=XYI 

2938 

IF 

c;cd 

THEN 

IJ=HI HI=GH.CH=FG:FG=EF 

2939 

IF 

C’CD 

THEN 

EF=DE:DE=CD CD=C: GOTO 2900 

2840 

IF 

C DE 

THEN 

UI=H!!:HII=GHS 

2841 

IF 

C? DE 

THEN 

GHI'FGI : FGI=EFI : EFUDEI : DEI=XYI 

2842 

IF 

«DE 

THEN 

IJ=HI:HI=GH:GH=FG FG=EF 

2843 

IF 

G'DE 

THEN 

EF=DE:DE=C:GOTO 2900 

2844 

IF 

C:EF 

THEN 

IJI=HIt:HII=GHI 

2845 

IF 

«EF 

THEN 

GHI=FGI : FGI=EFI : EFI=XYI 

2846 

IF 

«EF 

THEN 

1J=HI:HI=GH:GH=FG:FG=EF 

2947 

IF 

«EF 

THEN 

EF=C:COTO 2900 

2948 

IF 

«FG 

THEN 

IJI=HII:HII=GHI 

2849 

IF 

«FG 

THEN 

GHI=FGI FGI=XYI 

2850 

IF 

«FC 

THEN 

1J=H!: HI =GH:GH=FG:FC=C 

2651 

IF 

«FG 

30 

2900 

2852. 

IF 

C GH 

THEN 

l)t=HII:HII=GHI 

2853' 

IF 

C:GH 

THEN 

GHI=XYI 

2854 

IF 

C'GH 

THEN 

IJ=HI:HI=GH:GH=C:GOTO 2900 

2B5S 

IF 

OKI 

THEN 

I JI=HII:HU=XYI 

2856 

IF 

C)H! 

THEN 

I I=HI:HI=C'GOTO 2900 

2857 

IF 

«IJ 

THEN 

IJMXYI 

2853 

IF 

C)IJ 

THEN 

IJ=C: GOTO 2900 

2897 

REH. lit 



2898 

REH Ut 

TABLEAU DES CLASSEMENTS 

2399 

REH lll 




2900 CLSPRIN7 

2935 PRINT CHRIU38ICHRIII3II CHRKI43I* I I CLASSERENT II* 
2910 PRINT CHRIII38l;CKRIU3I)CHRIU48) - I I CLASSERENT II - 
2915 PAINT : PRINT CHRKI29I - ttt lll III lll lll lit lll lll ttt - 

2917 IFAB' 0THENPRINT:PR1NTCHRH129): - -l-, - AB :PRINTP17,6: * : - AB» 

2919 1FB« OTHENPRINT PRINTCHRI (130' * BC:PRINTP17,8' - : - Kl 

2922 IFCD>OTHENPRINT:PRINTCHR* * 131)’ - -3-. * CD : PRINTP17,10 •: * CD* 

2930 IFDE'OTHENPRINT:PRINTCHRI( 134 î : ‘-4-, - DE:PRINT817,1J - : 1 DEI 

2932 IFEF 0THENPRINÎ:PRINTCHRIM35l’ - -5-. - EF:PRINT817,14 - : ' EFI 

2934 IFFG'OTHENPRINT PRINTCHRI (130 J'“-6-. ' FG PR1NT817.16": "FGI 

2936 IFGH>0THENPRINT:PfiINTCHHI(13IC - -7-, * GH PRINTP17,18 - : - GHI 
2«33 IFHI 1 OTHENPRINT'PRINTCHRI11341 - -B-, - 'HI PRINT8I7.20' - : - :HI* 

2940 IFI1‘0THENPRINT:PRINTCHRI(135’' - -9-, - IJ PRINTB17 .22 * : • IJ» 

2962 PRINT PRINTCHRII129i' , lll Ut lll lll lll lll lll lll III - 

2963 PRINI83.25'"POUR JOUER . APPUYER SUR UNE TOUCHE - GET VI 
2970 GCSUB 4200.NAIT 100:PLAY O.O.C.OiGOTO 1000 

299’ RER «U 

29«9 RER lll REDEF. DES CARACTERES 
2999 REH lll 

•3000 PAF'ERO PRINT CHRl'17! 


300: 

PCR 1 

=46856 TO 46983.READ 0:P 

3010 

DATA 

0.0,0,0,0.3.0.0 

3020 

DATA 

3,0,0.0.0.0,0,9 

3030 

DATA 

0,30,55,31.15,31,63,30 

3043 

DATA 

0.30.59,62.60,62.63.30 

::îo 

DATA 

0.34,55.61.63.63.63.30 

3063 

DATA 

0.30,63,63,47,63.59,17 

2370 

DATA 

12.33.63.45.63.43.53.63 

3090 

DATA 

0,0,0,12,12.0,0.0 

T 350 

DATA 

'.6.24.29.39.16.16.16.16 

4300 

DATA 

63.63,63.63.63.63.63,63 

4002 

DATA. 

63.63.63.63.63.63,63,63 

4003 

DATA 

63.63.62.60,56.43,32.0 

4004 

DATA 

0.32.49.56,60,62.63,63 
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4005 DATA 0,1,3.7.15,31,63.63 

4006 DATA 63,63,31 45.7.3,1,0 

4007 DATA 0 0.0,13,15,0,0,0 

4008 DATA O.O.O.O.O.O.O.O 

4015 FOR 1=46456 TO 46552:READ D PONE I.DNEXT I 

4016 DATA 28.62.50.54,58.50,28.0 

4017 DATA 12,28,12,12,12,12,30.0 

4018 DATA 28.62.34.4,8,30,62,0 

4019 DATA 62,62,34,14.34,62,62,0 

4020 DATA 4,12,28.36,62.12,12,0 

4021 DATA 62,62,32,62,2,50.28.0 

4022 DATA 30,62.32,60,34.62,28.0 

4023 DATA 62,62,4.8,24,24.24,0 

4024 DATA 28,62,34,28,34.62.28.0 

4025 DATA. 28,62,34,30,2.30,60,0 
4226 DATA 0,12.12.0,12.12,0.0 

4027 DATA 0,12,12,0,12,12,24,0 

4028 FOR 1=46593 TO 46807:READ D:POKE I.DNEXT I 

4029 DATA 62,62,34,62,34,54,54,0 

4030 0A7A 60,50,50,60,50,50,60.0 

4040 DATA 30,54,48,48.48,54,30,0 

4041 DATA 60,54,50,50,50,54,60,0 
*042 DATA 62,54,48,60,48,54,62,0 

4043 DATA 62,54,48,60,48,48,48,0 

4044 DATA 30,54,18,54,54,50,30,0 

4045 DATA 54,54,34,62,34,54.54.0 

4046 DATA 30.12,12,12,12,12,30,0 

4047 DATA 6.6,6,2.34.62,28,0 

4048 DATA. 54,54,36,56,36,54,54.0 

4049 DATA 48,48,18,48,48,54,62,0 

4050 DATA 54,62,42,34,54.54,54,0 

4051 DATA 54.54.50.42.38,54,5t.0 

4052 DATA 28,62,50,50.50,50,28.0 

4053 DATA 60.62.34.60.32.48.48,0 

4056 DATA 28,62,50,50.58,52,26,0 

4057 OATA 60,62,34,60,40,52,54.0 

4058 DATA 28,62,32,28,2,62,28,0 

4059 DATA 62.42,8,8.12,12.12,0 

4060 DATA 54,54.34,34.34,62,28,0 

4061 DATA 54,54,34,34,54.28,8,0 

4062 DATA 54,54,34,34,42,62,54,0 

4063 DATA 54,54,20,8,20,54.54.0 

4064 DATA 54.54.28.8.8.12,12,0 

4065 DATA 62.50.4.8,16.38.62,0 

4066 FOR 1=46400 TO 46415:R£AD D:POKE I.D:NEXT I 

4067 DATA 8,24,48,48,48,24.8.0 

4068 OATA 3,12,6,6.6.12,8.0 

4069 FOR 1=46344 TO 46351 :READ D:POKE !,D:NEXT ! 

4070 DATA 12.12,12,12,0.12.12,0 

4071 FOR 1 = 46448 TO 46455:READ D:POKE I.D NEXT I 

4072 DATA 0,0,0,0,12,12,0,0 

4973 CLS:INK 1:PP1NT - V0ULEZ-V0US QUE :" 

4074 PRINT PRINT - (1) LE SON SOIT FAIBLE" 

4075 PRINT,PRINT - (2) LE SON SOIT NOYEN - 

4076 PPINT : PRINT - (31 LE SON SOIT FORT - 

4077 GET L.LET L=INTILI3.51 

4169 REH lll 

4170 REH lll PRESENTATION 

4171 REH lll 

4172 INK 3 CLS 

4173 PRINT PRINT CHRIU29I' - , lt jp jp jjj ip jp pj' 

4174 PRINT CHR4U30)- - j j j j j 1 I I 1 I l' 

4195 PRINT CHRIU3P - p, , , , „ , , p, , , - 

4176 PftiHT CHRS(135):" j jjj j jjjj j j* 

4177 PRINT CHRKI34I." , , , p, p, , , p, ,p‘ 

4178 PRINT:PRINT:RRINT CHRKI29I' - FAIT PAR SERGE HECAZZIKI - 

4179 PRINT.PRINT:PRINT CHRIII34I' - n ln ,p pppp ,ppt’ 

4180 PRINT CHRIII34I: - hdhhhhhhhh.hhhhhhhhhhgh- 
4191 PRINT CHRIII34)' - Oppp pppp ppi^‘ 

4182 PRINT:PRINT - PAC-IMN * CHR» 1301 • "d c e C 

4183 PRINT PRINT* PATTES «MIES : * :CHR« ( 130> ’ - hhht> - 

4184 PRINT PRINT - DRAPEAUX BONUS: - CHRI<1301• - I i - 
4165 PR I NT ‘ PR I NT * FANTOHE CLOUTON : - CHRÜI30I' - ? - 

4186 GOSUB 4200 GOSUB 4300 

4187 PRINT:PR!NT:PR!NT - VOULEZ-VOUS LES INSTRUCTIONS (O-NI - 

4188 CCT II 

4189 IF !l= - 0 - THEN 4600 

4190 IF Il= - N* THEN 1000 ELSE 4189 
4197 REH lll 

4193 REfl ni MUSIQUE DU JEU 
41*9 REH 111 

4270 MUSIC I,3,I,L:VAIT40 
4210 HUSIC l.3,5,L NAIT15 
4220 HUSIC 1.3■3,L:VAIT40 
4231 HUSIC 1 4,1 ,L: NAIT 100 







4240 KUSIC !.3.12.L WAIT20 

4150 HÜSIC I.4.!,L:VAÏT20 

4260 KUSIC I.3.S,L:UAIT20 

42’0 KUSIC l,3.5.L:NAIT20 

4230 FOR 1=6 TO I STEP-1 

4290 KUSIC !,3,I,L:VA!T20'NEXT!:RETURN 

4300 WAIT 20 :KUSIC 1.3,S,L:HAIT 20 

4310 KUSIC 1,3,B,L:VAIT20 

4320 KUSIC 1.4.1 .L UAIT40 

4330 KUSIC 1.3.8 t L:VAIT20 

4340 KUSIC 1,3,5,L:¥AIT20 

4350 KUSIC 1.3.1 .L WAIT20 

4355 FOR 1=1 TO 2 

4360 KUSIC !,3,3.L:NA1T20 

4370 KUSIC 1.3.S.L:VAIT20 

4390 KUSIC 1,3.3.L:VAIT20 

4340 KUSIC I,3.1>L:VAIT20 

4*00 KUSIC 1.2.10,L:HAIT40 

4405 NEXT I 

4407 FOR 1=1 TO 2 

4410 KUSIC 1.3.3.L WAIT20 

4420 KUSIC 1,3,5.L:HAIT20 

4430 KUSIC 1.3.3.L;VAIT20 

4440 KUSIC 1,2,I2,L:«AIT20 

4450 KUSIC !.2,8,L:»A!T40 

4455 NEXT I 

4457 FOR l=L TO I STEP-1 
4460 KUSIC 1,3.1,1 
4470 MIT 20:NEXT I 
4480 PLAY 0.0,0,0 
4490 RETURN 

4500 ZAP:NAIT30:HU5IC 1,3,I,L:¥AIT40 

4510 KUSIC 1,3,5,L:»AIT15 

4520 KUSIC 1,3,8,L:VAIT10 

4530 KUSIC 1.4,1,L:WAIT75 

4540 KUSIC 1,4,S,L:VA1TS0 

4550 KUSIC 1,4,3,L:VAIT20 

4560 KUSIC 1,4,1,L:WAIT100:PLAYO.O,0.0 

4570 RETURK 

4597 REK IM 

4598 REK ttt INSTRUCTIONS 

4599 REH III 

4600 CLS:PRINT:PRINT CHRMI29I CHR1II48):CHRtl1381•• I 

I I* 

4610 PRINT CHRKI3II :CHRU14B1'CHRM138)-' II» PA 
4620 PRINT : PRINT* VOUS DEVEZ RANGER LES PATTES-GOHHES " 
4630 PRINT*Ih) OUI SE TROUVENT DANS LE LABYRINTHE* 

4640 PRINT'SANS SE FAIRE AVOIR PAR LE FANÎOKE * 


UN PAS 

I ls sont fous ! Qui ? Ceux qui 
veulent en savoir plus sur l'as¬ 
sembleur, car ils ne savent pas 
combien de nuits blanches se 
préparent pour eux, et combien 
leur vie familiale va être mise en 
péril ! Vous voulez rester devant 
cette page bien que je vous aie 
prévenus ? Soit, mais ne m'écri¬ 
vez pas pour vous plaindre ! 

Où en étais-je la dernière fois ? 
J'aurais dû penser à fermer la 
fenêtre car je ne trouve plus mes 
papiers. Ah, les voilà ! Nous 
allons faire connaissance avec 
les instructions logiques : tout un 
programme... 

Il existe plusieurs types d'opéra¬ 
tions logiques. Pour ceux qui 
auraient séché la première leçon, 
un petit rappel : 


4650 PRINT-GL0UT0N Iql ." 

4660 PRINT:PRINT* VOUS DEVEZ VOUS DEPLACER AVEC LES 
4670 RRINT"TOUCHES DE DIRECTIONS .* 

4690 PRINT PRINT" POUR ECHAPPER AU FANTOKE, VOUS PO 
4700 PRINT-PASSER PAR LES OUVERTURES SITUEES SUR' 
4710 PRINT-LES DEUX COTES ." 

4760 PRINT PRINT" VOUS POUVEZ AUSSI POUR LE KANGER 
4790 PRINI'ATTRAPER UN DES PETITS DRAPEAUX (.1 ," 
4800 PRINT'ET POURSUIVRE LE GLOUTON .* 

4910 PRINT:PRINT" KAIS ATTENTION ', DANS CE PAC-KAN 
4820 PRINTTANTOHE EST SEUL, HAIS IL TRAVERSE" 

4830 PRINT'CERTAIN KURS 

4840 PRINT:PRINT"POUR LA SUITE, ENFONCER UNE TOUCHE 
4850 GH H! 

4860 CLS PRINT: PRINT: PRINT" ENCORE UN POINT : SAUVE 
4870 PRINTPAR UNE OUVERTURE QUAND LE FANTOHE " 

4880 PRINT"ARRIVE TROP PRES , CAR IL VA PLUS VITE" 
4890 PRINT'OUE VOUS 

4990 PRINT:PR1NT'P0UR JOUER. ENFONCER UNE TOUCHE" 
4995 GET Ht:GOTG 1000 
4997 REK 

««98 REH RETOUR GLOUTON A R=12'S=13 

4999 REH 

5000 PLOT X,Y."d" 

5005 IF SI 13 THEN 5100 
5010 IF S(13 THEN 5200 
5020 IF R<12 THEN 5300 
5030 IF Ri 12 THEN 5400 

5040 IF R=12 AND S=13 THEN RETURN 
5100 PLOT R,S,AI:S=S-1:GOSUB 5500 
5150 PLOT R,S."p":GOTO 5000 
5200 PLOT R,S,AI:S=5*1:G0SUB 5500 
5250 PLOT R,S,"p":G0T0 5000 
5300 PLOT R.S,A!:R=RM:GOSUB 5500 
5350 PLOT R,S,"p":GOTO 5000 
5400 PLOT R.S.A» R=R-l:GOSUB 5500 
5450 PLOT R, S, "p* : GOTO 5000 
5500 IF SCRNIR,SI=105 THEN Al="i" 

5510 IF SCRN(R,S) = 109 THEN Al="." 

5520 IF SCRNIR,S)=!08 THEN A«=*l* 

5530 IF SCRNIR,SI=I07 THEN Al="k" 

5540 IF SCRNIR,SI=U0 THEN Al="n" 

t I P A C - O R I C 1 5550 IF SCRN(R,SI=I06 THEN Al="j" 

5560 IF SCRNIR,S)=IU THEN Al="o" 

C - O R I C t t I" 5570 IF SCRNIR,S) = I04 THEN A»="h" 

5580 IF SCRN(R,S1=32 THEN Al=" " 

5590 IF SCRN(R,S)=105 THEN A»="i* 

5595 RETURN 


VERS L'ASSEMBLEUR 


Le OU (OR) 

O OU 0 = 0 
O OU 1 =1 
1 OU 0=1 
1 OU 1 =1 

A quoi cela peut-il bien servir 
dans un programme ? En plus de 
l'utilisation des propriétés boo¬ 
léennes classiques, on retiendra 
la possibilité offerte au program¬ 
meur de forcer à 1 un ou plu¬ 
sieurs bits d'un octet. Voyons 
comment. 

On ne connaît pas l'état des bits 
5 et 3 d'un octet, mais on vou¬ 
drait bien, caprice tout cela, 
qu'ils soient à 1. Il suffit pour 
cela de faire le OU entre l'octet 
et la valeur OOIOIOOO. Regardez 
la table de vérité ci-dessus, et 
comme vous n'êtes pas plus 


bêtes que moi, vous compren¬ 
drez tout de suite. Un exemple 
pour que ça passe mieux ? 
Octet inconnu : 10100011 
OU OOIOIOOO 
Résultat : 10101011 
Le bit 5 qui était à 1, mais ça, on 
ne pouvait pas le savoir, est bien 
à 1 après l'opération : le bit 3, qui 
était à O est maintenant à 1. 

LE ET (AND) 

O ET 0 = 0 
O ET 1 =0 
1 ET 0 = 0 
1 ET 1 = 1 

Le rôle du ET sera de forcer à 
zéro un ou plusieurs bits ou sim¬ 
plement de les "masquer", 
c'est-à-dire de pouvoir ne pas en 
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tenir compte lors d'une opéra¬ 
tion. 

Pour masquer un bit, il suffit de 
positionner à 1 le bit correspon¬ 
dant de l'octet de masquage. Le 
bit restera alors à son état initial. 
Les autres bits de l'octet sont 
forcés à zéro. Un petit exemple 
vaut mieux qu'un long dis¬ 
cours... 

Octet origine : 10100011 
Masque : 1 1 1 10000 
ET résultant : 10100000 
Les bits 7 à 4 n'ont pas été tou¬ 
chés, les bits 3 à 0 sont forcés 
à zéro après l'opération. 

LE OU EXCLUSIF (OR) 

0 XOR0 = 0 
0 XOR 1 = 1 
1 XOR 0=1 
1 XOR1=0 

Vous avez tout de suite perçu la 
différence entre le OU et le OU 
exclusif. 

Le XOR est utilisé, en général, 
pour inverser l'état de certains 
bits d'un octet. Admirez la sim¬ 
plicité de la chose. 

Octet d'origine : 01010101 
XOR 11111111 
Résultat : 10101010 
Dans cet exemple précis, on a 
inversé tous les bits de l'octet. 
Il est possible de n'atteindre que 
certains bits particuliers. Notez, 
par la même occasion, qu'une 
autre inversion provoquera un 
effet de bascule. 

Si vous avez la curiosité de par¬ 
courir la ROM de l'ORIC, vous 
trouverez à plusieurs reprises ces 
instructions logiques ainsi utili¬ 
sées. 

ROTATIONS 
ET DECALAGES 

Ces opérations portent égale¬ 
ment sur l'octet. Il est permis de 
faire défiler les bits de gauche à 
droite, ou de droite à gauche, à 
travers l'indicateur de retenue 
(C). 

C 7 6 5 4 3 2 1 0 
#########. 


DECALAGE 
A GAUCHEASL 


Tous les bits de l'octet concerné 
par l'opération sont décalés d'un 
rang vers la gauche. Le bit 7, qui 
n'a pas de voisin immédiat, 
tombe (écoutez le cri du bit qui 
tombe) dans l'indicateur de rete¬ 
nue (C). Par la droite, c'est-à-dire 
dans le bit 0, un zéro s'introduit. 
Avant de faire un ASL, il est judi¬ 
cieux, voire indispensable, de 
forcer le bit de retenue dans un 
état qui sera connu du program¬ 
meur. CLC le mettra à zéro, SEC 
à un. 

C7654321 0 
0 10 0 1 1 10 0 
ASL 

1 0 0 1 1 1 0 0 0 
Que peut-on faire avec ASL ? 
Tout simplement tester l'état 
d'un bit donné en procédant à 
autant de décalages que néces¬ 
saire pour l'amener dans le bit de 
Carry. Si vous regardez de près 
l'opération réalisée, vous verrez 
que ASL multiplie par 2 la valeur 
de l'octet traité. Intéressant, 
non ? 

A l'inverse, l'opération LSR 
effectue un décalage vers la 
droite. Le bit 7 se trouve forcé à 
0, le bit 0 tombe dans l'indica¬ 
teur de retenue. Comme vous 
n'êtes pas sot, vous avez égale¬ 
ment conlu que ce n'est plus une 
multiplication par 2 mais une 
division par 2 qui est réalisée... 
Dans la ROM, on verra cette opé¬ 
ration pour mettre à zéro le bit 7 
d'un octet. 

ROR AND ROL 
(à ne pas confondre 
avec Rock and Roll) 

Après les décalages, voici les 
rotations. Les bits tournent "en 
circuit fermé", via le bit de Carry. 
Avec ROL, ça tourne à gauche 


(dans l'hémisphère nord ; dans 
l'autre, c'est peut-être l'inverse, 
comme l'écoulement des eaux 
dans lavabos et baignoires, mais 
je n'ai pas pu vérifier). Le bit 7 
passe dans la retenue, après que 
celle-ci soit partie se promener 
dans le bit 0. Les autres bits sont 
décalés d'autant (en emporte le 
vent). 

C 7 6 5 4 3 2 1 0 
Avant 10 0 111110 
Après 0 0 111110 1 
Avec ROL, c'est dans l'autre sens 
que les bits vont se bousculer. La 
retenue se retrouve dans le bit 7, 
et le bit 0 est promu retenue. 
Avec tout cela, on devient capa¬ 
ble de faire toutes sortes d'opé¬ 
rations arithmétiques sur plu¬ 
sieurs octets, et c'est dans la par 
tie calculs en virgule flottante de 
la ROM que vous trouverez la 
plus forte concentration de ROR 
et ROL. 

INSTRUCTION BIT 

Elle fait un peu bande à part, car 
elle est toute seule. Elle permet 
d'effectuer un ET logique entre le 
contenu de l'accumulateur et un 
emplacement mémoire. Le résul¬ 
tat de l'opération n'est pas 
conservé dans l'accu. Par contre, 
il affecte les indicateurs N, V et 
Z. Le bit N devient la recopie du 
bit 7 de l'octet mémoire, le V, 
celle du bit 6. Si le résultat est 
nul, le bit Z est positionné. 
Sachant cela, vous en concluerez 
facilement que l'instruction BIT 
est très souvent suivie d'un test 
du genre BPL, BMI, BVC, etc., 
permettant d'en tirer parti. 
Essayez le petit programme (idiot) 
suivant, permettant de savoir si 
un octet est pair ou impair, et 
après cela, vous pourrez aller dor¬ 
mis. Salut ! 


I7000-700C 


7000: 

ie 

CLC 

7001! 

16 

00 LSR 100 

7003: 

BO 

01 BCS 17009 

7005: 

20 

El FA ISR IFAE1 

7008: 

if 

RTS 

7009: 

20 

9F FA ISR IFA9F 

700C: 

M 

RTS 

EN 0R1C 

-1 FAE1=FAC7, FA9F-FA05 

PING si 

r.oabre tapair, ZAP sinon. Le noibre est < 255, ca c'est sur 

Et pour 

l'essayer... 

10 1NPUTN:POKEO,N :CALLI7000:GOTOl0 
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DOMPTEZ VOTRE M/CROD/SC 


Fabrice BROCHE 


D ans notre précédent numéro, 
nous avons vu comment était 
organisé le DOS et où étaient 
cachées les variables systèmes et 
les routines utiles. Voici, pour 
conclure cette étude, des préci¬ 
sions sur l'organisation de la dis¬ 
quette et des fichiers. 

ORGANISATION 
DE LA DISQUETTE 

Principe général 

Le système de gestion des sec¬ 
teurs libres est assez original. Il 
repose sur le principe des liens. 
Chaque secteur contient 
l'adresse du suivant et ainsi de 
suite jusqu'au dernier. Ainsi, il 
suffit de connaître le premier sec¬ 
teur libre pour les avoir tous. De 
même, tous les secteurs d'un 
fichier sont liés. Avant d'aller plus 
loin, quelques remarques. 

Ce système a pour lui sa simpli¬ 
cité de mise en œuvre. Mais il a 
un gros inconvénient : la dis¬ 
quette. Au fur et à mesure des 
DEL, SAVE, UPDATE, elle tend 
vers un désordre inextricable (il 
suffit d'écouter le bruit de la tête 
de lecture) qui ralentit le charge¬ 
ment et fatigue inutilement la tête 
de lecture. C'est pourquoi le 
système dit du ''Bit Map'' est 
plus souvent employé car il 
conserve la disquette dans un 
ordre optimal. 

Donc, tous les secteurs sont lies. 
Le lien original est crée au forma¬ 
tage. Il part de la piste 0 vers la 


dernière piste, dans l'ordre. Ainsi, 
sur le DOS VI. 1., le secteur 0,7 
pointe sur le 0,10 qui pointe sur 
le 0,13, etc. Sur le XL DOS, le 
0,5 pointe sur le 0,7 qui pointe 
le 0,9, etc. 

Pour bien comprendre le méca¬ 
nisme, voyons ce qui se passe si 
on sauve deux fichiers, puis 
lorsqu'on en détruit un : soit au 
début, la liste de secteurs libres 
suivante (piste, secteur). A noter 
que l'en-tête contient toujours 
l'adresse du premier secteur 
libre : 

Secteurs libres : 

0,05, 0,07, 0,09, 0,11, 0,13, 
0,15, 0,17. 

On crée un fichier de trois sec¬ 
teurs : 

Secteurs libres : 0,11 0,13 0,1 5 
0,17 

Fichier 1 : 0,05 0,07 0,09 
On crée un fichier de deux sec¬ 
teurs : 

Secteurs libres : 0,15 0,17 
Fichier 1 : 0,05 0,07 0,09 
Fichier 2 : 0,11 0,13 
Supprimons maintenant le 
fichier 1 : 

Secteurs libres : 0,05 0,07 0,09 
0,15 0,17 

Fichier 2 : 0,11 0,13 
La procédure de destruction est 
la suiyante : 

Le premier secteur du fichier 
devient le premier secteur libre, 
et le dernier secteur du fichier est 
lié à l'ancien premier libre. Ainsi, 
la "liste” est restaurée, du moins 
pour le nombre. Pour ce qui est 



de l'ordre... 

Supprimons le fichier 2 : 
Secteurs libres : 0,11 0,13 0,05 
0,07 0,09 0,15 0,17. 

Ainsi, on retrouve le même nom¬ 
bre de secteurs, mais dans un 
ordre bouleversé. Et le désordre 
ne peut qu'empirer. 

Dans le DOS, tout est lié. Les 
secteurs du catalogue, les sec¬ 
teurs d'un fichier, les secteurs 
libres. Dans tous les cas, ce sont 
les deux premiers octets du sec¬ 
teur qui contiennent l'adresse 
piste/secteur du suivant. Si c'est 
le dernier de la liste, le numéro du 
secteur est fixé par convention à 
0. 

Voici maintenant rapidement, car 
cela a déjà été décrit dans le 
THEORIC n° 6, la structure des 
différents secteurs. 

Secteur en-tête 

Il est obligatoirement placé piste 
0, secteur 1. C'est le secteur le 
plus important de la disquette. 
S'il est détruit, il sera difficile de 
récupérer la disquette. 

Les deux nombres données 
sont : l'adresse si le secteur est 
chargé en #C023 et la position 
relative dans le secteur. 

#C023 : #00 : table d'activation 
des lecteurs (cf. #C013). 

# C02B #08 : rien. 

# C033 #10 S : 

# C034 # 11 P : adresse du pre¬ 
mier secteur libre. S = 0 si dis¬ 
quette pleine. 
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#0035 #12 S : 

# C036 # 13 P : adresse du pre¬ 
mier secteur du catalogue. 
#C037 #14 : nombre de sec¬ 
teurs libres. 

#C039 #16 : nombre de sec¬ 
teurs occupés. 

#C03B #18 : nom de la dis¬ 
quette. 

# C063 #40 : nom du DOS. 

# C073 # 50 : message de bien¬ 
venue (XL DOS). 

Secteur de catalogue 

#C023 #00 : lien piste. 

#0024 #01 : lien secteur. 
#C025 #02 : nombre de noms 
dans ce secteur de catalogue (0 
à 15). 

# C026 # 03 : nom du fichier (ou 
premier caractère = 0 si nom 
effacé). 

#C02F #0C : longueur du 
fichier. 

# C031 #0E : S. 

#C032 #0F P : premier secteur 
du fichier. 

#C033 #10 S : 

# C034 # 11 P : dernier secteur 
du fichier. 

#C035 #12 : code de protec¬ 
tion. 

#C036 #13 : nom du fichier. 


# Cl 1 5 #F3 : rien. 

Secteurs programme 
Premier secteur d'un fichier 

#C023 #00 : lien piste 
#C024 #01 : lien secteur 
#C025 #02 # FF : indique début 
de fichier. 

#C026 #03 #00 : inutilisé. 
#C027 #04 : adresse de début 
du programme. 

#C028 #06 : adresse de fin du 
programme. 

#C02A #08 : "status” du pro¬ 
gramme, 

0000 si bloc mémoire ou 
machine sans exécution, 
0001 si Basic non AUTO, 
0002 si Basic AUTO, 
xxxx si machine, xxxx 
adresse d'exécution. 
#C02C #0A : nombre d'octets 
utiles du secteur. 

#C02D #0B : programme... 

Secteur programme normal 

#C023 #00 : lien piste. 


#C024 #01 : lien secteur. 
#C025 #02 : longueur utile sec¬ 
teur (#FD au maximum). 

En fait, les huit octets qui forment 
l'en-tête du programme peuvent 
être placés n'importe où dans le 
secteur. En effet, lors du charge¬ 
ment, à la fin du programme, la 
routine décrit la fin du secteur et 
les secteurs suivants s'il y en a, 
à la recherche d'un octet valant 
#FF qui indiquera un nouveau 
programme. C'est cette possibi¬ 
lité qu'exploite l'option "M" du 
COPY. 

ORGANISATION 
DES FICHIERS 

Il sera traité uniquement du XL 
DOS, les fichiers du V1.1 ne 
méritant pas que l'on s'y 
attarde... 

Les fichiers de données (exten¬ 
sion .DAT) ont exactement la 
même structure en séquentiel 
qu'en direct, ce qui* explique 
qu'un fichier puisse être indiffé¬ 
remment exploité de l'une ou 
l'autre manière. 

Premier secteur du fichier 

#C023 #00 : lien piste. 

#C024 #01 : lien secteur. 

# C025 #02 # FF 

# C026 #03 #00 

# C027 # 04 : type du fichier lors 
de la première ouverture. # 80 = 
direct, # 81 = séquentiel. 

# C028 #05 #00 

#C029 #06 : nombre de fiches 
(retourné par &(-NL)) pour un 
fichier direct. 

# C02B # 08 : rien jusqu'à la fin. 

Il y a là un secteur presque sacri¬ 
fié, mais c'est pour rendre les 
fichiers compatibles direct/ 
séquentiel et surtout faciliter le 
calcul pour les fichiers directs. 

Secteur "normal" 

#C023 #00 : lien piste. 

#C024 #01 : lien secteur. 
#C025 #02 : nombre d'octets 
utiles du secteur. 

# C026 # 03 : type de la donnée. 

#00 = entier (2 octets), 

#01 à #FE = chaîne (lon¬ 
gueur de la chaîne), 


# FF = réel (5 octets). 

La suite du fichier est normale : 
après la première donnée, un 
type, une donnée, etc. 

Vous l'avez sans doute remar¬ 
qué, les fichiers directs sont en 
deux parties. La deuxième est un 
fichier .IDX. 

En effet, l'accès à une fiche se 
fait par un simple calcul : compte 
tenu de la longueur de la fiche, de 
la longueur utile d'un secteur et 
du numéro de la fiche concernée, 
on obtient facilement qu'elle 
débute à la position x dans le sec¬ 
teur numéro N. (longueur x 
numéro/253). Le problème est 
donc d'accéder le plus vite pos¬ 
sible au secteur N. 

On peut bien entendu prendre le 
premier secteur et ainsi de suite 
jusqu'au N®. Mais c'est agir de 
manière séquentielle, puisqu'on 
lit tout le fichier, ce qui est trop 
lent. 

On crée donc une table des sec¬ 
teurs du programme. Il est facile 
de prendre la table puis l'adresse 
dans la table du N® secteur. Ainsi, 
on passe de N accès disque à 2 
accès disque, ce qui est raison¬ 
nable. Sur les gros systèmes, où 
on a de la place mémoire, on 
charge la table en mémoire, ce 
qui réduit à un seul accès disque. 

Structure de l'index 

#C023 #00 : lien piste. 

#0024 #01 : lien secteur. 

#C025 #02 P : 

#0026 #03 S : premier secteur 
du fichier. 


#0121 #FE P : 

#0122 #FF S : ... 

Avec cette méthode, si le fichier 
fait plus de 127 secteurs, il fau¬ 
dra aller chercher les coordon¬ 
nées sur le secteur suivant, ce qui 
fait trois accès disque. Pour évi¬ 
ter ceci, il aurait fallu un sous- 
index qui contiendrait la liste des 
secteurs de la liste des secteurs 
du fichier. On peut aller loin... 

Voilà, vous en savez désormais 
autant que moi sur le MICRO- 
DISC. 
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COLORIC 



ous en avez peut-être assez CODES ECRAN MODE TEXTE (accessibles par POKE) 

de "jouer” sur des CHR$ 

(27) ; pour colorier votre 
écran. Vous désirez vous rappro¬ 
cher du "cœur" de votre 
machine en utilisant des POKE 
ou même en programmant en 
langage machine... Alors, lisez 
ce qui suit et conservez toujours 
près de votre ORIC ces codes qui 
vous seront bientôt indispensa¬ 
bles. 


L'écran TEXTE : celui-ci se trouve 
entre les adresses # BB80 à 
#BFDF (48000 à 4911 9) et est 
composé de 1120 octets. 

Ex.: POKE # BB80,33 - affi¬ 
chage d'un point d'exlamation 
"!" en haut à gauche de l'écran. 
Le tableau des codes ECRAN 
MODE TEXT (COLORIC page 2) 
fait l'inventaire de tous les codes 
de 0 à 255 ($00 à $ FF) que l’on 
peut "POKER" à l'écran. 

L'écran HIRES : plus important 
que l'écran texte, l'HIRES 
comprend 8000 octets de # A000 
à # BF3F (40960 à 48959), l'af¬ 
fichage se faisant sur 6 bits (1 
octets = 8 bits). Voir tableau des 
codes ECRAN MODE HAUTE 
RESOLUTION (COLORIC page 3). 


APPLICATION 

BUT : afficher le mot THEORIC en 
fond ROUGE, TEXTE VERT, sim¬ 
ple hauteur, et clignotant. Pour ce 
faire, voici 3 moyens de procé¬ 
der, dont un classique utilisant les 
CHR$(27) et deux autres utilisant 
les codes donnés sur les tableaux 
précédents. 


HEXA 

Décimal 

FONCTION 

$00 

0 

Texte noir 

$01 

1 

Texte rouge 

$02 

2 

Texte vert 

$03 

3 

Texte jaune 

$04 

4 

Texte bleu 

$05 

5 

Texte magenta 

$06 

6 

Texte cyan 

$07 

7 

Texte blanc 

$08 

8 

Escape Caractères STD fixe SH 

$09 

9 

Escape Caractères ALT fixe SH 

$0A 

10 

Escape Caractères STD fixe DH 

$0B 

11 

Escape Caractères ALT fixe DH 

$0C 

12 

Escape Caractères STD clignotant SH 

$0D 

13 

Escape Caractères ALT clignotant SH 

$0E 

14 

Escape Caractères STD clignotant DH 

$0F 

15 

Escape Caractères ALT clignotant DH 

$10 

16 

Fond noir 

$11 

17 

Fond rouge 

$12 

18 

Fond vert 

$13 

19 

Fond jaune 

$14 

20 

Fond bleu 

$15 

21 

Fond magenta 

$16 

22 

Fond cyan 

$17 

23 

Fond blanc 

$18 

$19 

24 

25 

Mode texte 60 Hz 

$1A 

26 

Mode texte 50 Hz 

$ 1B 

27 

$1C 
$1D 

28 

29 

Mode graphique 60 Hz 

$ 1E 
$ 1 F 

30 

31 

Mode graphique 50 Hz 

$20 à 

32 à 

Caractères ASCII 

$7F 

127 

128 à 

idem (0 à 31) + 128 


159 

sauf 1 er caractère en VIDEO INVERSE 


160 à 

Caractères ASCII 


255 

en VIDEO INVERSE 
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CODES ECRAN MODE HAUTE RESOLUTION (HIRES) 
(accessibles par POKE) 


HEXA 

DECIMAL 




$00 à 

0 à 31 

IDEM MODE TEXTE 


$1F 


(sauf pour les codes 10, 11, 14, 15 (codes double hauteur) qui ont les mêmes 
effets que leurs homologues simple hauteur. 

$20 

32 

00100000 

■□□□□□ 

Codes $20 à $3F (32 à 63) Affichage sur 6 

$21 

33 

00100001 

■□□□□■ 

bits (ces codes ont les mêmes effets que 

$23 

35 

00100011 


les codes $60 à $7F) (96 à 127). 

$27 

39 

00100111 



$2F 

47 

00101111 

■□■■■■ 


$3F 

63 

00111111 



$41 

65 

01000001 

□□□□□■ 

Codes $40 à $7F (64 à 127) affichage sur 

$43 

67 

01000011 

□□□□■■ 

6 bits (le bit 7 n'est pas affiché). 

$47 

71 

01000111 


$4F 

79 

01001111 

□□■■■■ 


$5F 

95 

01011111 



$7F 

127 

0111111 



$80 à 

128 à 

IDEM MODE 

TEXTE 


$9F 

159 

avec les mêmes particularités que les codes 0 à 31 (ESCAPE double hauteur). 

$A0 à 
$9F 

160 à 

255 

IDEM code 32 à 127 mais VIDEO INVERSE. 

Ex.: $A1 

161 

10100001 

□ ■■■■□ | 



PROGRAMME 1 utilisant les 
CHR$ 

(voir listing COLORIC page 5 + 
programme n° 1 sur cassette). 

PROGRAMME 2 utilisant les 

codes par POKE 

(voir listing COLORIC page 6 + 


programme n° 2 sur cassette). 

PROGRAMME 3 en langage 
machine. Listing du programme 
source 

(voir listing COLORIC page 7 + 
listing COLORIC page 8 : pro¬ 
gramme objet + listing COLORIC 


page 8 - DATA). 

Ces trois programmes ne sont 
donnés qu'à titre d'exemple pour 
vous montrer qu'il existe plu¬ 
sieurs façons de traiter le même 
problème, chaque méthode ayant 
ses propres avantages. 


110 REM = A.TCRTCSA /18 PARS 85/ = 
120 REP = programme d’AFFICHAGE 
130 REP = du mot THEORIC . 

140 REP = par utilisation de ’ PRINT’= 

160 PAPER0:INK7 ’Blanc sur Fond Noir 
170 CLS ’EFFACEPENT ECRAN 

180 PRINT:PRINT:PRINT 
190 FOR 1=0 TO 2 
200 READ A* 

210 PR INTCHRSC 27 D ; AS ; : ’ESCAPE 

220 NEXT I 

230 FOR L=1 TO 7 

240 READ AS 

250 PR INTAS; 

260 NEXT 
270 END 


1000 DATA Q: ’ FOND ROUGE 

1010 DATA B= ’TEX1 UERT 

1020 DATA L: » ESC STD CLIGNOTANT S.H. 

1030 DATA T,H,Ej 0,R,I,C 


110 REP = A.TORTOSA /18 PARS 85/ = 
120 REP = programme d’AFFICHAGE 

130 REP = du mot THEORIC 

140 REP = par utilisation de ’POKE’ = 

160 PAPER0 ; INK7 ’Blanc sur Fond Noir 

170 CLS ’EFFACEPENT ECRAN 

180 FOR 1=0 TO 2 

190 READ A 

200 POKE «BC20+I.A 
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210 NEXT I 
220 FOR L=1 TO 7 
230 REPD 6$ 

240 6=6SCCB$:i 

250 POKE 4BC20+I+L,6 

260 NEXT 


I DONNE =3000!6FFIC =3006!ENCOR =300C 


L6NCEHENT DU PROGRRnnE EN $3006 


270 END 



03000- 

-3009 




1000 D6T6 

17 

'FOND ROUGE 

3000: 

11 02 

0C 

en 

CO 

45 4F 52 . . 

1010 D6T6 

02 

’TEXT UERT 

3008: 

49 43 

60 

06 B9 

FF 2F 99 IC 

1020 D6T6 

12 

’ESC STD CLIGN0T6NT S.H. 

13006- 

-3015 




1030 D6T6 

T,H 

, E, 0, R, I, C 

3006 : 

60 

06 


LDY 4$06 




300C : 

B9 

FF 

-2F 

LD6 $2FFF,Y 




300F : 

99 

20 

BC 

ST6 $BC20,Y 




3012: 

88 



DEY 

100 5 



3013: 

D0 

F* 


BNE $300Æ 

110; 

6. 

T0RT0S6 /18 f16RS 85/ = 

3015: 

60 



RTS 


THEOR 

.3. y. 


120 

130 

140 

145 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2S 


; = programme d’6FFICH6GE = 

; = du mot THEORIC : 

; = ROUTINE en L6NG6GE I16CHINE 

; = [Programme SOURCE] = 

J = = = z= = = = = = = =: = = = =: = === = = = = = === = z 

1 ORG $3000 

i 

; DONNEES PR0GR6MNES 

y 

'DONNE:DFB $ 11,02,0C,54,48,45,4F 
DFB $52,49,43 
'6FFIC :l_DY 4$06 
’ENCOR:LD6 $2FFF,Y 
' ST6 $BC20,Y 

' DEY 

' BNE ENCOR JENCORE ?? 

RTS 


100 REd ============================= 

110 REd = 6.T0RT0S6 /18 d6RS 85/ = 

120 REd = programme d’6FFICH6GE = 
130 REd = du mot THEORIC 

140 REd = ROUTINE en L6NG6GE dPCHINE- 
145 REd = D6T6 programme = 

150 REd ============================= 

160 FORI=43000TO43015 
170 RE6D6 
180 POKE1,6 
190 NEXT 

200 D6T6 411,402,40C,454,448,445 
210 D6T6 44F,452,449,443,460,406 
220 D6T6 4B9,4FF,42F,499,420,4BC 
230 D6T6 488,4D0,4F7,460 


MODEM TONIC 


En attendant de pouvoir faire un 
banc d'essai plus complet de ce 
MODEM dont nous attendons 
deux exemplaires en prêt, voici 
brièvement les caractéristiques 
de l'appareil. Bien que la photo 
laisse supposer une ressem¬ 
blance avec le DTL 2000, le 
TONIC est plus petit et présente 
quelques différences sur lesquel¬ 
les nous reviendrons. 

— Connecté directement sur le 
bus d'extension de l'ORIC ou 
ATMOS, 


— connexion par prise gigogne 
sur la ligne téléphonique, 

— norme de communication 
CCITT V.23, 

— vitesse de transmission des 
données : 

- 1200 bauds dans un sens, 

- 75 bauds dans l'autre. 

— Fourni avec: 

— 1 logiciel simple pour utiliser 
l'ORIC en Minitel monochrome, 

— 1 logiciel pour échanger des 
zones mémoire ou écran. 

— Tout le circuit est sur une 
seule carte électronique. 


— Il est entièrement programma¬ 
ble par des POKE à certaines 
adresses mémoire : 

— composition des numéros 
de téléphone, 

— envoi des octets, 

— vitesse de transmission de 
1200 bauds ou 75 bauds, 

— format des données 7 ou 8 
bits, 

— parité paire ou impaire, 

— 1 ou 2 STOP RIT, 

— détection des erreurs de 
parité, de "FRAME” et de 
"OVERRUN". 
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JASMIN 


BIENVENUE AU JASMIN 2 



L a société TRAN commercialise 
maintenant la nouvelle version 
du JASMIN, baptisée pour la cir¬ 
constance "JASMIN 2". Nous 
allons essayer de voir quelles 
sont les différences entre le 
nouveau-venu et ses prédéces¬ 
seurs. 

La gamme Jasmin a connu plu¬ 
sieurs versions du même appa¬ 
reil : aspect extérieur différent, 
conception électronique diffé¬ 
rente, bref, le produit n'a cessé 
d'évoluer depuis son arrivée sur 
le marché, il y a un peu plus d'un 
an. Il est bon de souligner égale¬ 
ment que, dans la série, il y a eu 
quelques petits problèmes, 
notamment lors de la fabrication 
au Portugal par TIMEX. 

Le nouveau modèle, lui, est fabri¬ 
qué en France par une société 
implantée dans le sud-est : DAT¬ 
TEL, intimement liée maintenant 
avec TRAN. Pour un prix un peu 
supérieur à celui des derniers 
exemplaires du Jasmin "1", 
celui-ci offre l'avantage d'être un 
double-tête. Cela signifie que 
vous n'aurez plus besoin de 
retourner la disquette dans le lec¬ 
teur et que vos fichiers pourront 
s'étaler sur deux faces. Voilà qui 
est bon pour les gros consomma¬ 
teurs d'espace mémoire... 


Physiquement, le Jasmin 2 est un 
peu plus gros que son ancêtre, 
mais contrôleur et lecteur sont 
maintenant dans un seul et même 
boîtier. Les dimensions approxima¬ 
tives sont 200x150x90 mm. 
L'alimentation est désormais 
extérieure au boîtier et vient se 
fixer directement sur la prise de 
courant 220 V. Cette disposition 
garantit un moindre échauffe- 
ment de l'ensemble, une des prin¬ 
cipales calamités de l'ancien 
système. Un fusible est accessi¬ 
ble sur le boîtier d'alimentation. 
La couleur noire a été conservée. 
La face-avant reçoit bien entendu 
la disquette dans un logement qui 
nous a semblé mieux étudié. 
Deux gros boutons, disgrâcieux 
mais efficaces, bien fixés méca¬ 
niquement, remplacent les petits 
poussoirs qui étaient collés 
contre la face-avant du Jasmin 
"1". A l'arrière, un poussoir 
"Marche-Arrêt" et le bus d'ex¬ 
tension pour une seconde dis¬ 
quette occupent le panneau. 

La nappe assurant la connexion 
avec l'ORIC sort par le dessous 
du boîtier et, ô miracle, il n'y a 
plus besoin de la tourner dans 
tous les sens pour la brancher : 
ça fait bien plus propre ! 

Mise sous tension et insertion de 
la disquette. De suite on a une 


agréable sensation car, mécani¬ 
quement, la disquette s'insère 
mieux dans son logement. Le 
"Booting" donne l’impression 
qu'il ne se passe rien, tant le 
moteur et la tête sont silen¬ 
cieux... Drôlement différent des 
autres ! Après plusieurs dizaines 
de minutes de fonctionnement, il 
nous a été impossible de faire 
cuire notre œuf comme sur le 
Jasmin "1” ; c'est bon signe. 
Côté soft, rien de bien neuf, si ce 
n'est que, après le formatage, on 
dispose maintenant de près de 
360 k-o accessibles en un seul 
bloc. Le T-DOS est compatible 
ORIC-1 et ATMOS. 

L'utilisateur d'un ancien système 
doit savoir qu'il ne pourra pas 
récupérer facilement les fichiers 
qu'il possédait sur la face B de 
ses disquettes... Il faudra les 
recopier un par un ou faire un 
"BACKUP" complet de la face B 
sur une face A. Une petite astuce 
pour lire les faces B des disquet¬ 
tes qu'il est impossible d'intro¬ 
duire dans un Jasmin 2 : il suffit 
de masquer, au moyen d'un mor¬ 
ceau d'adhésif l'encoche rectan¬ 
gulaire située à proximité de la 
marque "A" de la disquette. 
Moyennant cette petite opération 
ne demandant pas d'autre préc- 
caution que celle de ne pas bou- 
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cher le trou rond situé à côté du 
"A", la disquette pourra être 
introduite, face B, dans le lecteur. 
Lors des accès disques, nous 
avons constaté l'apparition de 
parasites sur l'écran, avec parfois 
une tendance à la désynchronisa¬ 
tion. Les services techniques de 
la société TRAN nous ont orien¬ 
tés vers l'ORIC. Procédant à 
l'échange de l'unité centrale, 
nous avons obtenu un fonction¬ 


nement correct. Ce défaut sem¬ 
ble donc venir d'une certaine dis¬ 
persion des composants côté 
ORIC, mais nous avons tout de 
même eu le défaut avec deux 
machines sur trois. Le fait de 
replier la nappe de liaison sur elle- 
même atténue considérablement 
le phénomène, voire jusqu'à l'an¬ 
nuler. L'emploi d'un ''ampli-bus'' 
est également un remède effi¬ 
cace... Il est regrettable que cet 


ampli n'ait pas été incorporé dans 
la nouvelle version du "Jasmin”. 
En résumé, on peut dire que le 
"JASMIN 2 " apporte un mieux 
sur plusieurs points. Echauffe- 
ment moins important devant 
conduire à une plus grande fiabi¬ 
lité, encombrement moindre et 
meilleure conception mécanique, 
alliés à une capacité de stockage 
doublée, devraient séduire bien 
des utilisateurs potentiels... 


UN TUEUR DE PARASITES 


Alain MAUBLANC 


A ce sujet, les heureux posses¬ 
seurs de JASMIN ont sans 
doute remarqué qu'il ne digérait 
pas les vilains parasites qui 
rôdent dans les fils secteurs. 
Pour eux, le cauchemard d'un 
long programme perdu à jamais 
est terminé. 

Pour la modique somme d'envi¬ 
ron 60 F, un fer à souder, une 
petite boîte, voilà la solution : 


1 : 1 x fusible 2 A rapide. 

2 : 1 x condensateur non pola¬ 
risé 4,7 pF. 

3 : 2 x tore d'antiparasitage 
bobiné 100 à 500 /tF. 

4 : 2 x condensateur non pola¬ 
risé 22 nF. 

Bien préciser à l'achat des 
composants l'utilisation de 
ceux-ci, ou mieux, montrer le 
schéma car les valeurs peuvent 
être modifiées. 

ECHAUFFEMENT INTENSIF 

Si votre contrôleur chauffe, le 
meilleur moyen, c'est de l'ouvrir 
(les vis sont sous les patins en 


caoutchouc) et de poser un petit 
ventilateur sur le gros radiateur 
en tôle (le mien chauffait au point 


de gondoler le couvercle !!!). 
Voilà, ne me remerciez pas, vous 
verrez, ÇA MARCHE ! 



Terre 
l du Jasmin 


1 : 1 x Fusible 2 A rapide 

2 : 1 x Condensateur non polarisé 4,7 pF/400 V minimum 

3 : 2 x Tores dantiparisitage 100 à 500 uH/2 A 

4 : 2 x Condensateurs non polarisés 22 nF /400 V minimum 


Filtre d'antiparasita g e secteur 
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ÉDITEUR PLEIN ÉCRAN 


Pierre BEAU Fl LS 


N ous proposons un pro¬ 
gramme en langage machine 
qui permet de convertir un pro¬ 
gramme Basic stocké en mémoire 
un programme qui aurait été tapé 
sur un traitement de texte, 
comme Easytext. L'opération 
inverse : Programme Basic — 
texte est également prévue. Cela 
permettra de remédier aux 
défauts de l'éditeur de l'ORIC et 
de réaliser ainsi, sur traitement de 
texte, un éditeur plein écran, 
avec tous les avantages que cela 
comporte. 

TRANSFERT 
PROGRAMME BASIC - 
TEXTE : $ 8000 

Ce programme est plus simple 
que le suivant. La routine 
NOVEAS incrémente le pointeur 
TEXTE (en #05 et #06), NOU¬ 
VEAU incrémente le pointeur 
Basic (en #07 et #08). Dans un 
premier temps, les deux octets de 
chaînage (de chaque ligne) sont 
sautés, puis le numéro de ligne 
(sur deux octet en hexadécimal) 
est converti en décimal par deux 
routines de la ROM, qui stockent 
le résultat à partir de #100 (fin 
signalée par 0). Dès qu'un mot- 
clé est trouvé (code supérieur à 
#7F), il est traité par la routine 


MOTCLE qui, comme dans LIST 
de la ROM, va chercher les carac¬ 
tères qui le composent. La fin du 
programme Basic est déterminée 
par deux zéros successifs. 

Le texte est placé à partir de 
#4000. Le dernier octet est à 
l'adresse (#05, #06) après l'ap¬ 
pel du programme. 

TRANSFERT TEXTE - 
PROGRAMME BASIC : $80BC 

Le début du fichier texte est placé 
en #00 et #01. La routine NOUV 
incrémente le pointeur de texte. 
Dans un premieiv temps, le pro¬ 
gramme compte le nombre de 
RETURN rencontrés pour en 
déduire le nombre de lignes à trai¬ 
ter. Ce nombre est limité à 255. 
La fin de texte est déterminée par 
0 après le dernier RETURN. 
Chaque ligne est ensuite exami¬ 
née, par transfert dans le tampon 
d'entrée : BUF ( # 35 et suivante). 
Elle y est mise en forme (3 zéros 
successifs après le RETURN). 
Puis, la routine CMDLF, image de 
celle qui se trouve en ROM est 
appelée ; elle examine la ligne, y 
recherche les mots-clés, crée les 
octets de chaînage et place la 
ligne dans la mémoire Basic (à 
partir de #500), en tenant 
compte du numéro qu'elle porte. 


Le retour se fait au Basic par 
JUMP # F8B2. 

A l'origine, l'adresse de départ du 
texte est égale à #4000 ;#00 
est donc placé en # 00 ; # 40 en 
# 01 . 

(voir listing 1) 

Un exemple, très simple, de fonc¬ 
tionnement est le suivant : tapez 
un petit programme, puis faites : 
CALL # 8000. Tapez NEW, puis 
LIST ; le programme a disparu. 
Faites maintenant : CALL 
# 80BC, et enfin LIST. Le pro¬ 
gramme a réapparu, après une 
transformation en texte. 

Les applications de ce pro¬ 
gramme sont nombreuses : 

— utilisation d'un traitement de 
texte, comme EASYTEXT, pour 
taper les programmes, avec 
l'avantage de l'édition plein 
écran, 

— échange d'information avec 
d'autres ordinateurs, même de 
marque différente, puisque seul 
le texte, donc les codes ASCII 
universellement adoptés est 
transmis, 

— possibilité de réaliser par logi¬ 
ciel une interface RS232, c'est- 
à-dire série, puisque chaque let¬ 
tre du programme est accessible, 
(voir listing 2) 
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EASYTEXT 


P.M. BEAUFILS 


L a disquette EASYTEXT est autonome : 
elle permet en effet de "BOOTer” le 
système et de lancer automatiquement 
son exécution. 

Dans un premier temps, il vous est demandé 
le type de votre imprimante. Vous avez alors 
le choix entre plusieurs modèles extrême¬ 
ment répandus. Puis, il vous demande le 
type d'impression que vous souhaitez. 
Attention, ce raffinement n'est possible que 
sur certaines machines. Lisez bien la notice 
de l'imprimante pour savoir si cette option 
est disponible sur la vôtre. 

L'écran devient alors noir. Une ligne de STA¬ 
TUT apparaît en bas de celui-ci ; un petit tiret 
clignote en haut à gauche. Il vous faut main¬ 
tenant initialiser les paramètres d'impres¬ 
sion. Ce sont : 

NL : Le nombre de lignes par page : un papier 
standard en autorise 69 (distance entre deux 
lignes prédécoupées). Il est possible de 
modifier ce nombre par (CTRLK9). 

NCL : Le nombre de caractères par ligne : 
un papier courant en contient 80 (40 pour 
l'ORIC MCP-40). Il est alors judicieux d'en 
mettre 70. Ceci s'effectue grâce à 
(CTRLM4). 

MG : Ce symbole définit la marge à gauche. 
Nous conseillons 5. La valeur proposée pré¬ 
cédemment pour NCL conduit ainsi à une 
marge à droite égale, elle aussi, à 5. MG est 
modifiable par (CTRL)(5). 

En tapant (CTRL)( = ), la ligne de STATUT 
change ; elle affiche cette fois-ci le numéro 
de la page en cours : PAGE, le numéro de 
ligne : LIGNE, le nombre de lignes NLBP qui 
seront laissées vierges en bas de page. Sous 
les signe = apparaît toujours l'interligne 
choisi (distance entre deux lignes imprimées, 
là encore, tout dépend des possibilités de 
votre imprimante). Les paramètres : NL, =, 
NLBP sont modifiables par (CTRLK9). Il est 
conseillé de ne pas rester en permanence 
dans ce mode de STATUT (revenir à l'affi¬ 
chage normal : NC, ND, NCL,... ) par 
(CTRL)! = ). 

Enfin, sous l’indication MODE apparaît le 
mode de fonctionnement du clavier : M pour 
majuscule, m pour minuscule, E pour (ESC), 
C pour (CTRL) ; (SHIFT) permet le bascule- 
lent momentané M/m. Les accents apparais¬ 
sent également sous MODE. Voilà. Mainte¬ 
nant tout est prêt pour un premier essai I 
Commençons un courrier. Il est obligatoire 
de toujours débuter par un (RETURN). Dans 
un premier temps, nous allons inscrire nos 
références en haut à gauche et la date en 
haut à droite sur la même ligne. Nous 
tapons : 

(RETURN(DUPONT Jacques (CTRLKD) 


NIMES,30/06/84IRETURN) 

18, Avenue du Pont(RETURN) 

30000 NIMES(RETURN) 

A l'impression, (CTRLKD) rejette tout ce qui 
suit (jusqu'au premier (RETURN) rencontré) 
à l'extrême droite de la feuille. Un (RETURN) 
impose un retour à la ligne. Si vous faites 
une erreur de frappe, (DEL) permet d'effa¬ 
cer les derniers caractères entrés. Si vous 
vous apercevez d'une erreur un peu plus 
haut dans le texte, il y a un certain nombre 
d'opérations à effectuer : 

— se positionner à l'endroit de l'erreur à cor¬ 
riger ; il y a pour cela plusieurs possibilités. 
Les touches fléchées permettent un dépla¬ 
cement caractère, ou bien ligne par ligne. 
Avec (SHIFT), ces déplacements se font par 
écrans entiers, avec (CTRL), on se posi¬ 
tionne en début ou en fin de texte. Enfin, 
(CTRLKA) et (CTRLKH) permettent des sauts 
de 6 caractères vers la droite ou la gauche. 

— Pour une insertion, il faut taper (CTRL)O). 
L'insertion se fait alors à GAUCHE du carac¬ 
tère sous lequel est situé le curseur. On peut 
ainsi insérer autant de caractères que l'on 
veut. Cependant, si ceux-ci sont nombreux, 
on a intérêt à passer en mode "déplacement 
de blocs" (voir plus loin). Il faut taper de nou¬ 
veau (CTRLKD pour sortir de ce mode. 

— Pour une suppression, on peut utiliser 
(DEL) : il y a alors élimination du caractère 
situé à gauche du curseur et remplacement 
de celui-ci par un espace. (SHIFTKDEL), au 
contraire, efface le caractère sous lequel est 
situé le curseur avec ELIMINATION de son 
emplacement. 

— il est enfin possible de remplacer un 
caractère par un autre en tapant directement 
sur l'emplacement du curseur. 
Poursuivons. 

(RETURN)(RETURN)(CTRL|(B)Monsieur, 

(RETURN) 

(CTRLKB) permet de centrer tout ce qui suit 
(jusqu’au prochain (RETURN)). "Monsieur" 
s'affichera ainsi au milieu de la ligne. Pour¬ 
suivons par un (RETURN). A partir de main¬ 
tenant, les (RETURN) ne sont plus obligatoi¬ 
res. EASYTEXT les générera automatique¬ 
ment en fonction du nombre de caractères 
par ligne (NCL) que vous avez précédem¬ 
ment choisi ; mais les (RETURN) que vous 
taperez imposeront (à la fin d'un paragraphe, 
par exemple) un retour à la ligne. 
Continuons. 

(SPACEKSPACEKSPACE)... (SPACE) Votre 
lettre en date du Al (CTRLKU) nous laisse 
penser qu'il y a un désaccord entre nous. 
Nous nous permettons de vous rappeler que 
la facture numéro A2(CTRL)(U) n'a toujours 
pas été réglée. Nous vous prions de bien 
vouloir nous en expliquer les raisons. 
(RETURN )( SPACE K SPACE)... (SPACE). 
Dans l'attente de votre réponse, veuillez 
recevoir nos salutations distinguées. 
(RETURN) (RETURN )( RETURN) (SPACE) 
(SPACE)... (SPACEKCTRLKK)Dupont Jac- 


/ ques(RETURN)Service Contentieux 
(RETURN). 

Quelques explications. 

(CTRLKU) tapé après une lettre suivie d'un 
chiffre crée un mot générique. Ainsi, ce 
modèle de lettre pourra être utilisé de nom¬ 
breuses fois (nous ne l'espérons pas pour 
vous, car cela signifierait que tous vos 
clients sont de mauvais payeurs... ) ; il suf¬ 
fira de remplacer ces mots génériques par 
leurs "valeurs" pour personnaliser cette let¬ 
tre. Nous y reviendrons plus loin. 
(CTRLKK) génère pour tout ce qui suit un 
décalage par rapport à la marge de gauche 
(égal au nombre de (SPACE) tapés, plus un). 
Ceci permet donc de décaler un paragraphe. 
On annule cette action en tapant de nouveau 
(CTRLKK). 

Tentons une première impression. Il nous 
faut d’abord définir Al $ et A2$. Pour cela, 
tapons dans l'ordre : 

- (CTRL) ( ) 

- (CTRLKD 

— Le mot (ou bien le groupe de mots) des¬ 
tiné à remplacer le mot générique Al $ 

- (CTRLKU) 

- (CTRLK7) 

Il vous est alors demandé la lettre et le chif¬ 
fre définissant le mot générique. Vous pou¬ 
vez commencer l'opération pour A2$. 
Cependant, la substitution ne sera effective 
(et définitive) qu'après un (CTRLl(V). Mais, 
avant de faire cela, nous allons sauvegarder 
notre préciseuse lettre personnalisée. 

Dans ce but, nous allons scinder la mémoire 
disponible en deux paities : (1) et (2). 
Tapons (CTRLK/). Notre lettre est mainte¬ 
nant présente dans ces deux mémoires : le 
texte est, à l'heure actuelle, dans (1) sur 
l'écran, donc modifiable et est préservé en 
(2). Un petit signe : / rappelle ceci, dans la 
ligne de STATUT. 

Nous pouvons maintenant effectuer un 
(CTRLKV) qui remplacera les variables A1$ 
et A2$ par leur valeur dans le texte. L'écran 
est aussitôt modifié en conséquence et il est 
prêt à être imprimé. Mais avant, il faut le for¬ 
mater, c'est-à-dire le prédisposer en 
mémoire pour y rendre opérationnels tous 
les paramètres de formatage que nous avons 
introduits : (CTRLKK). (CTRLKB), (RETURN). 
Appuyons pour cela sur (CTRLKW). Le texte 
disparaît, puis réapparaît aussitôt ; un cer¬ 
tain nombre de choses ont changé : 

- des tirets, centrés sur les lignes indiquent 
la présence d'espaces, qui seront introduits 
lors de l'impression et qui ont été générés 
par le formatage ; 

- des (RETURN) en vidéo inverse vous indi¬ 
quent les sauts à la ligne qui sont rendus 
obligatoires par le nombre maximum de 
signes (NCL = 70) que vous avez prévu d'im¬ 
primer par ligne. 

Nous pouvons maintenant faire un 
(CTRL)(P). Nous obtenons l'impression sui¬ 
vante : 
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Dupont Jacques 
18, Avenue du Pont 
30000 NIMES 


Monsieur, 

Votre lettre en date du 18/02/84 nous 
laisse penser qu'il y a un désaccord entre 
nous. Nous nous permettons de vous rap¬ 
peler que la facture numéro 1234 n'a tou¬ 
jours pas été réglée. Nous vous prions de 
bien vouloir nous en expliquer les raisons. 

Dans l'attente de votre réponse, veuillez 
recevoir nos salutations distinguées. 

Dupont Jacques 
Service Contentieux 

Nous pouvons vérifier que l’impression est 
conforme à ce que nous désirions. Remar¬ 
quons toutefois que si le texte est parfai- 
temnt aligné à gauche, il n'en est pas de 
même à droite (attention : ce n'et pas le cas 
un peu plus haut, mais seulement sur la let¬ 
tre que vous avez tapéel. Nous avons en 
effet formaté le texte à l'aide de (CYrLI(W), 
contrairement à la notice. Nous utiliserons 
par la suite (CTRLI(X) qui permet une justi¬ 
fication totale. Les textes seront alors par¬ 
faitement alignés, tant à gauche qu'à droite. 
Pour cela, EASYTEXT insérera des espaces 
supplémentaires entre les mots pour abou¬ 
tir à ce résultat. On peut empêcher cette 
action en certains endroits, par exemple 
dans "XX YY" en tapant : XX(CTRL) 
(SPACE)YY au lieu de : XXISPACEIYY. L'es¬ 
pace ainsi tapé se présente alors comme un 
petit carré. 

Nous pouvons maintenant sauvegarder 
notre lettre sur disquette. Tapons (CTRLK2): 
EASYTEXT nous demande le nom que nous 
voulons lui donner. Ceci étant fait, l’opéra¬ 
tion s'effectue automatiquement. 

PROGRAMMATION AVANCEE 

Après un arrêt total du système, remettons- 
le en route. Nous constatons alors que la 
ligne de STATUT n’a pas retrouvé la confi¬ 
guration que nous lui avions imposée pré¬ 
cédemment. Il nous faut de nouveau modi¬ 
fier les paramètres d’impression (MCL, MG, 
NL,„. ) par (CTRL)(4), (5), (6), 191. Pour évi¬ 
ter la perte de ces informations, nous aurions 
pu les figer en sauvegardant, la fois précé¬ 
dente : "CONTEXT" par un (CTRLK2). 
Nous pouvons naturellement récupérer le 
texte précédent en tapant (CTRL)d), puis 
le nom que nous lui avons donné. 
L'imprimante employée pour taper l'original 
de ce texte est une SEIKOSHA GP100 ; elle 
possède un mode double largeur que nous 
pouvons tenter d'employer. Pour cela (le cur¬ 
seur est sur le D de Dupont), tapons 
(CTRLXI) — c'est le mode insertion — puis 
(CTRLXN), puis 9 fois ISPACE), puis : 
MODELE DE LETTRE, de nouveau (CTRL) 
(N), enfin trois fois (RETURN). 

Le rôle du premier (CTRLXN) est de faire pas¬ 
ser l'imprimante en double largeur, celui du 
second est de la ramener en mode normal. 
Tapons (CTRL)dl pour sortir du mode inser¬ 
tion (Attention : comme d'autres comman¬ 
des, (CTRD(N) est une bascule ; si vous 
l'avez utilisée une première fois — elle appa¬ 
raît alors sur l'écran avec un signe + — et 
que vous l'ayez ensuite effacée, le prochain 
(CTRLXN) sera inefficace — il y a alors un 

signe-il faudra alors le taper " à blanc 

", l'effacer et recommencer). 

Maintenant, à l'aide de (CTRL)(I), amenons 
le curseur en fin de texte. Nous allons rajou¬ 
ter un paragraphe à notre lettre (ce serait 
également possible en mode insertion). 


Tapons (CTRLXQ) — même remarque que 
pous (CTRLKN) —il s'agit là encore d'une 
bascule — quelques (SPACE) et : 

Nous vous rappelons les références exactes 
du dossier en question : 

(RETURN)(SPACE).. (SPACE)(CTRLI(K) 
Date:A3(CTRL)IU)(RETURN) Libellé : A4 
(CTRL)(U)(RETURN)Nature:A5 ICTRLMU) 
(RETURNHCTRLXKXCTRLKQ) 

Nous avons ainsi défini un bloc de texte, 
encadré par deux flèches fermantes ; il y a 
alors trois sortes de manipulations possi¬ 
bles : 

— soit déplacer ce bloc pour le mettre ail¬ 
leurs tout en le conservant à son emplace¬ 
ment d'origine. Il faut pour cela amener le 
curseur à l'endroit où l'on veut insérer le bloc 
et taper (CTRLKR) ; 

— transférer le bloc tout en le conservant 
à l'endroit où il a été écrit ; il faut alors faire 
(CTRLXS) ; 

— détruire le bloc sans le transférer ; cela 
s'effectue par (CTRLXR), à condition que le 
curseur se trouve au même moment DANS 
le bloc concerné. 

Définissons maintenant les nouvelles varia¬ 
bles A3$, A4$, A5$ par (CTRLXI), 
(CTRLXI), la valeur de la variable, (CTRLXU), 
(CTRLX7) ; remplaçons-les dans le texte par 
(CTRLXV) ; formatons celui-ci par (CTRLKX) 
et imprimons-le avec (CTRLXP). 

Dupont Jacques NIMES, 30/06/84 

18, Avenue du Pont 
30000 NIMES 


Monsieur, 

Votre lettre en date du 18/02/84 nous 
laisse penser qu'il y a un désaccord entre 
nous. Nous nous permettons de vous rap¬ 
peler que la facture numéro 1234 n'a tou¬ 
jours pas été réglée. Nous vous prions de 
bien vouloir nous en expliquer les raisons. 

Nous vous rappelons les références exac¬ 
tes du dossier en question : 

Date : 12/02/84 
Libellé : Export 
Nature : Boîtes 

Dans l'attente de votre réponse, veuillez 
recevoir nos salutations distinguées. 

Dupont Jacques 
Service Contentieux 

Nous constatons une différence par rapport 
à l'impression obtenue précédemment ; en 
effet, le texte a été formaté à l'aide de 
(CTRLKX) ; on peut constater qu'il y a eu 
justification totale : le texte est parfaitement 
aligné, à gauche comme à droite ; pour cela, 
EASYTEXT a rajouté des espaces supplé¬ 
mentaires dans les lignes. Il est possible 
d'empêcher une telle action en certains 
endroits en tapant (CTRLXSPACE) à la place 
de (SPACE) : aucun espace de formatage ne 
pourra être introduit à cet endroit-là. 
D'autre part, notre lettre bien courte n’a pas 
eu besoin de formatage vertical ; si le texte 
avait été plus long, il aurait pu être découpé 
en "pages" en fonction des paramètres du 
STATUT, par (CTRLXM). 

Dans ce cas-là, il existe une autre possibi¬ 
lité intéressante : celle de pouvoir faire impri¬ 
mer automatiquement des "pieds de page", 
c'est le numéro de page. Pour cela, la varia¬ 
ble générique Z9$ a été réservée. Il faut 
donc, dans un premier temps, définir celle- 
ci par (CTRLXI), (CTRLXI), pied de page, 
(CTRLXU). Puis, par (CTRLK7), on peut 
affecter la variable Z9 à ce pied de page. Le 
remplacement effectif dans le texte sera 
effectué par un (CTRLXV). Ensuite, (CTRL) 


(9) permettra de définir le numéro de la pre¬ 
mière page. 

Ceci étant dit, il est possible de définir d'au¬ 
tres mots génériques. La démarche à suivre 
est évidemment la même, cela permet de ne 
pas avoir à taper une formule de politesse, 
par exemple. Il faut alors définir "Veuillez.... 
distinguées" comme étant A3$ ; l'utilisation 
de A3$ sera alors systématiquement à cha¬ 
que fin de courrier, le remplacement étant 
effectif après un (CTRLXV). De tels mots 
génériques peuvent être conservés d'une 
fois à l'autre ; il suffit pour cela de répondre 
"OUI" à la question : "Voulez-vous garder 
vos variables ?" qui est posée après chaque 
sauvegarde de texte. 

RESUME DES FONCTIONS 

(CTRLXI) : Disquette — mémoire 
(CTRLX2) : Mémoire — disquette 
(CTRLX3I : Disquette — fusion avec le 
texte en mémoire 

(CTRLK4) : NCL, nombre de caractères 
par ligne 

(CTRLX5) : MG, marge à gauche 
(CTRLX6) : Sélection de l'imprimante 
ICTRLX7) : Définition d'un mot générique 
(AO à Z9$) 

(CTRLX8) : Remplacement d'un mot$ par 
un autre mot$ 

(CTRLX9) : NL, nombre de lignes par page 
(CTRLl(O) : CATalogue de la disquette 
(CTRLX = ) : Examen de la ligne de STATUT 
(CTRLX ) : Recopie de (2) dans ( 1 ) 

(CTRLXQ) : Définition d'un bloc de texte 
(par — et —I 

(CTRLXW) : Formatage avec justification à 
gauche 

(CTRLXE) : Destruction du texte en 
mémoire 

(CTRLXR) : Déplacement d'un bloc de 
limite avec disparition 
(CTRLKT) : Commutation majuscule/ 
minuscule 

(CTRLXY) : Déformatage 
(CTRLXU) : Création d'un mot générique 
(CTRLXI) : Passage au mode insertion 
(CTRLXP) : Impression du texte en 
mémoire 

(CTRLXI) : Mode GRAPHique 

(CTRLKA) : Avancement du curseur de 6 
lettres 

(CTRLXS) : Déplacement d'un bloc avec 
conservation 

(CTRLXD) : Rejet du texte à droite 
(CTRLXF) : Click sonore des touches 
(CTRLKG) : Arrêt de l'imprimante 
(CTRLKH) : Recul du curseur de 6 lettres 
(CTRLXJ) : Interlignage 
(CTRLXK) : Marge à gauche temporaire 
(CTRLXL) : Saut au début de la page sui¬ 
vante 

ICTRLKZ) : Positionnement du curseur en 
début d'écran 

(CTRLKX) : Formatage avec justification 
totale 

(CTRLXC) : Arrêt de toute fonction en 
cours (retour par RUN) 
(CTRLXV) : Remplacement de tous les 
mots génériques 
(CTRLXB) : Centrage du texte 
(CTRLXN) : Mode double largeur 
(CTRLXM) : Justification verticale 
(CTRLX,) : TABulation 
(CTRLX/) : Reopie de (1) dans (2) 

(CTRLXI) : Envoi du curseur en fin de 
texte 

(CTRLXI) : Envoi du curseur en début de 
texte 
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Je m'abonne à la revue TNEORIC pour 11 NUMEROS du n‘ 


. . au 


Il me manque les numéros 7, 8, j'ajoute 30 francs par revue. 

ATTENTION : pour les mois de juillet et août, il n'y a qu'un numéro. 

Ci-joint un chèque (libelle à l'ordre de SORACOM SARL d'un mon¬ 
tant de.F. 


NOM .Prénom 

Adresse ... 

Code postal .Ville . 

Pays. 


Signature 


Retourner le bulletin à : 

EDITIONS SORACOM — Service abonnements THEORIC — Le Grand Logis, — 10 av. 
du Gai. de Gaulle - 35170 BRUZ. 

TARIF FRANCE. 270,00 

TARIF EUROPE. 270,00 + 50,00 

TARIF PAR AVION. 270,00 + 140,00 


r 

i 

i 

i 

i 

i 

i 
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ANNONCEZ-VOUS ! 

les petites annonces et les messages 



n 

i 

i 

i 

i 

i 

i 

j 


Vends ORIC 48 k état neuf + 6 livres tech¬ 
niques + cordons magnéto, imprimante + 
alimentation externe renforcée + logiciels 
divers RTTY, morse, jeu, etc. : 1800 F. G. 
LE CANN, 35770 La Garenne Vérin, tél.: 
50.66.13. 

Vends NEWBRAIN sortie 16 car. lumines¬ 
cents + télév. avec doc. Valeur 700 F + 
alim. Le tout : 4000 F. Tél.: (7) 250.40.67. 


Vends EPROM 27128 IORIC-1 ou ATMOS) : 
200 F. Tél.: (431 81.53.50 après 18h. 

Possesseur ATMOS échange programmes 
sur cassette ( + DE100). P.M. DIDIER, 7 rue 
Condorcet, 29200 BREST. Tél.: (98) 
80.11.30. 

Echange programmes compatibles ATMOS 
support cassette disque JASMIN. M. CHAU- 
VIGNE, 7 av. Descartes, 95230 Soisy Mont¬ 
morency. 


Vends poste de travail complet avec tous 
branchements dans meuble aménagé com¬ 
prenant : ORIC ATMOS + moniteur couleur 
OSCAR + imprimante SEIKOSHA GP 100A 
+ lecteur de cassettes TENSAI + lecteur de 
disquettes JASMIN + 10 disquettes 3" + 
12 cassettes programmes jeux et utilitaires 
+ 8 livres ORIC-ATMOS. Prix justifié : 
10 000 F. Conviendrait à club informatique. 
Claude OUDIETTE, 41 rue de l'Abbaye, 
49400 Saumur. Tél.: (41) 50.49.21. 
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ORIC ATMOS+PERITEL+AUM+3CASSETTES DE JEUX 


LOGICIELS ORIC 1 

ASSEMBLER DISASS 102 00 INTERTRON 60 49 

ASTEROtOS 69 97 MONITEUR 1 0 105 55 

CARN 3 60 49 MULTlGAMES 53 37 

CASPAK 71 16 ORIBLE 60 49 

CASSE BRIQUES 49 81 ORIC FLIGHT 37 95 

CENTIPEOE CHENILLE INF 79 46 ORIC FORTm 142 32 

DtCO 5 60 49 ORIC MON 102 00 

D1NKY KONG 79 46 PUISSANCE 4 49 81 

EUROPE OU GEOFRANCE 73 53 SPACE CRYSTAL 79 46 

GALAXTON 71 16 STARFlGMTER 79 46 

GALAXY 5 79 46 THE ULTRA 79 46 

GENCAR 105 55 TRAITEMENT 30 105 55 

MOPPER OU JOGGER 79 46 WORD PROCESSOR 166 04 

HYPER MASTER MINO 60 49 ZOOIAC 79 46 

PERIPHERIQUE & ACCESSOIRES 

Moniteur couleurs OR 14. 2750 

Cable péritel avec alimentation. 150 

Moniteur monochrome vert. 950 

Câble pour moniteur monochrome. 80 

Modulateur pour télé noir et blanc. 260 

Magnêtocassette ZETA. 350 

Cassettes vierges (les 10). 75 

Imprimante 4 couleurs MCP40 . 1290 

Imprimante 4 couleurs MCP80 . 2850 

Cable pour imprimante. 150 

Interface joystick programmable . 350 

Joystick QUICKSHOT 1. 95 


ORIC 









LOGICIELS ORIC 1 

& ATMOS 




30 INVAOERS 

79 46 

J APPRENOS LA CAO 

135 20 



ACHERON S RAGE 

79 46 

KIT ECRAN 

11267 



l AIGLE D OR 

135 20 

COMPILATEUR BASIC 

171 97 



ANNUAIRE 

105 55 

LE PROTECTOR 

71 16 



AS DES AS 

112 67 

LOTORICIELS 

90 14 



AUTMOR 

130 46 

MYSTERY TOWER 

79 46 



CHESS 

79 46 

ORIC BASE 

112 67 



CRIBBAGE 

79 46 

ORIC BASIC PLUS 

11267 



CROCKY 

90 14 

ORIC CALC 

130 46 



DAO 

11267 

ORIC GESTION 1 

142 32 



OAMBUSTER 

79 46 

ORIC GESTION 2 

142 32 



DEFENCE FORCE 

71 16 

ORICADE 

97 25 



DONT PRESS LETTER O 

79 46 

OR ION 

71 16 



DRAUGHTS (Damesi 

79 46 

ORISCRIBE 

171 97 



FRiGATF COMMANDER 

74 72 

PROBE 3 

8S 39 



GASTRONOM 

71 16 

OUACK A JACK 

79 46 



GESTION DE STOCK 

135 20 

RAT SPLAT 

79 46 



GHOST GOBBLER 

65 39 

SCUBA DIVE 

79 46 



GOOILLORIC 

71 16 

SUPER COPV ECRAN 

11267 



GREEN CROSS TOAD 

65 39 

SUPER FRUIT 

79 46 



MARRIER ATTACK 

79 46 

TRICK SHOT 

79 46 



HU'BERT 

90 14 

ULTIMA ZONE 

79 46 



INVAOERS 

85 39 

XENON 1 

97 25 



J APPRENDS L ANGLAIS 

105 55 

ZORGON S REVENGE 

88 95 
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PROMO LOGICIELS ORIC 1 

6 best sellers des jeux 
d’arcade pour ORIC 1 
pour 200 F! 


LE TUBE DE L'ETE 


Disponible chez votre revendeur ou par correspondance 

EUREKA INFORMATIQUE, 39, rue Victor Massé 75009 PARIS 


Pour commander, utiliser le bon à découper de la page suivante 




































ORIC ATMOS+MONITEUR COULEUR+MAGNETO K7 


Performant : On ne présente plus l'ORIC ATMOS : 48 k Octets de mémoire. BASIC performant, graphisme haute résolution couleurs, etc... 
Pour afficher clairement ces performances, nous avons fait construire spécialement un moniteur couleur. l'OR 14 il est équipé d'un câble qui se 
branche directement dans l’ordinateur, ce qui facilite les branchements. L'écran assure un contraste et un rendu des couleurs exceptionnel, et 
l'amplitude a été spécialement réglée pour obtenir un affichage « pleine page ». 


Complet : l'ensemble que nous vous 
proposons est « prêt à travailler » (ou à 
jouer !) : un ordinateur ORIC ATMOS. 
un moniteur couleur 36 cm OR 14 de 
haute qualité, et un magnétocassette 
Vous avez tout de suite tout ce qu'il faut 
pour démarrer 


Evolutif : Bien que largement assez per 
formant, l'ensemble construit autour de 
l’ORIC ATMOS peut s'agrandir au fur et à 
mesure de l'évolution de vos besoins ou 
de vos connaissances grâce à de nom¬ 
breuses possibilités de branchements 


Intelligent : Déjà établi comme un best 
seller sur le marché français. l’ORIC 
ATMOS a fait ses preuves et bénéficie 
d’une très large bibliothèque de logiciels 
de toutes sortes (jeux éducatifs, applica 
tions professionnelles) dont un très grand 
nombre en français. 


L'ATMOS et les matériels qui l'entourent sont couverts par une garantie constructeur d'un an par EUREKA INFORMATIQUE, qui a 
récemment acheté ORIC Angleterre et qui est à ce titre propriétaire de la marque ORIC et distributeur exclusif de ses produits 



DERNIERE MINUTE: 

LES 1000 PREMIERES COMMANDES 
SERONT ACCOMPAGNEES DE 
10 CASSETTES DE PROGRAMME 
GRATUITES 


Bon de commande à retourner à 

Eurêka Jhfbmtartgur 

39. rue Victor Massé 
75009 PARIS 
Tél 281.20 02 
Télex 649 385 F 


TUBE DE L'ETE 


M 

Adresse 


. J. Code _ Ville _ 

W désire commander 
tyQ Un ensemble ORIC à 3 490 F 
! Un ORIC ATMOS à 990 F 


Les matériels suivants 


Qté 

Désignation 

Pnx 





Ci-joint mon règlement par 


. □ 
□ 


(Ajouter 25 F de frais de pon si votre 
commande es! inférieure à 500 F 


Disponible chez votre revendeur ou par correspondance 














































